ใช้ภาษาการเขียนโปรแกรมใด ๆ เพื่อแสดงตัวเลขระหว่าง 1 ถึง 99 (รวมทั้งคู่) ในลักษณะดังกล่าวเพื่อที่:

• ตัวเลขถูกคั่นด้วยช่องว่างเดียว
• ถ้าจำนวนหารด้วย 3 ก็ควรอยู่ในวงเล็บ
• ถ้าจำนวนหารด้วย 4 ก็ควรอยู่ในวงเล็บเหลี่ยม
• หากตัวเลขหารด้วย 3 และ 4 ทั้งสองควรเป็นทั้งในวงเล็บและวงเล็บเหลี่ยม

โปรแกรมของคุณควรแสดงอย่างถูกต้อง:

1 2 (3) [4] 5 (6) 7 [8] (9) 10 11 ([12]) 13 14 (15) [16] 17 (18) 19 [20] (21) 22 23 ([24]) 25 26 (27) [28] 29 (30) 31 [32] (33) 34 35 ([36]) 37 38 (39) [40] 41 (42) 43 [44] (45) 46 47 ([48]) 49 50 (51) [52] 53 (54) 55 [56] (57) 58 59 ([60]) 61 62 (63) [64] 65 (66) 67 [68] (69) 70 71 ([72]) 73 74 (75) [76] 77 (78) 79 [80] (81) 82 83 ([84]) 85 86 (87) [88] 89 (90) 91 [92] (93) 94 95 ([96]) 97 98 (99)

05AB1E , 23 ไบต์

-1 ไบต์ต้องขอบคุณ Kevin Cruijssen

тGND4Öi…[ÿ]}N3Öi…(ÿ)]ðý

ลองออนไลน์!

Python 2 , 68 65 60 ไบต์

i=0
exec"i+=1;print'('[i%3:]+`[i][i%4:]or i`+')'[i%3:],;"*99

ลองออนไลน์!

R , 61 ไบต์

"+"=c
r=""+""
cat(paste0(r+"(",r+""+"[",1:99,r+""+"]",r+")"))

ลองออนไลน์!

เยลลี่ , 21 20 ไบต์

³Ṗµ3,4ṚƬḍד([“])”j)K

ลองออนไลน์!

มันทำงานอย่างไร

³Ṗµ3,4ṚƬḍד([“])”j)K  Main link. No arguments.

³                     Set the return value to 100.
 Ṗ                    Pop; yield [1, ..., 99].
  µ               )   Map the chain in between over [1, ..., 9]; for each integer k:
   3,4                    Set the return value to [3, 4].
      ṚƬ                  Reverse until a loop is reached. Yields [[3, 4], [4, 3]].
        ḍ                 Test k for divisibility by [[3, 4], [4, 3]], yielding a
                          matrix of Booleans.
         ד([“])”         Repeat the characters of [['(', '['], [']', ')']] as many
                          times as the Booleans indicate.
                 j        Join the resulting pair of strings, separated by k.
                   K  Join the resulting array of strings, separated by spaces.

D , 110 ไบต์

import std.stdio;void f(){for(int i;i<99;)write(++i%3?"":"(",i%4?"":"[",i,i%4?"":"]",i%3?"":")",i%99?" ":"");}

ลองออนไลน์!

ส่งจากคำตอบ C ++ ของ @ HatsuPointerKun

ถ่าน 30 ไบต์

⪫ＥＥＥ⁹⁹Ｉ⊕ι⎇﹪⊕κ⁴ι⪫[]ι⎇﹪⊕κ³ι⪫()ι 

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

    ⁹⁹                          Literal 99
   Ｅ                            Map over implicit range
        ι                       Current value
       ⊕                        Incrementd
      Ｉ                         Cast to string
  Ｅ                             Map over list of strings
            κ                   Current index
           ⊕                    Incremented
             ⁴                  Literal 4
          ﹪                     Modulo
              ι                 Current value
                []              Literal string `[]`
                  ι             Current value
               ⪫                Join i.e wrap value in `[]`
         ⎇                      Ternary
 Ｅ                              Map over list of strings
                      κ         Current index
                     ⊕          Incremented
                       ³        Literal 3
                    ﹪           Modulo
                        ι       Current value
                          ()    Literal string `()`
                            ι   Current value
                         ⪫      Join i.e wrap value in `()`
                   ⎇            Ternary
                                Literal space
⪫                               Join list
                                Implicitly print

J , 54 53 ไบต์

น้อยกว่า 1 ไบต์ขอบคุณ @Jonah

(*stdout(3|.0=4 3 1 3 4&|,1=":)#3|.']) ([',":)@>i.100

ลองออนไลน์!

C, C ++, 136 133 131 129 128 124 ไบต์

-5 ไบต์ขอบคุณZacharýและแรงบันดาลใจจากการเขียน () ฟังก์ชั่นในภาษา D (ดูคำตอบZacharý)

-2 ไบต์ขอบคุณ mriklojn

-12 ไบต์สำหรับรุ่น C ขอบคุณ mriklojn

-4 ไบต์ขอบคุณที่แมวเพดาน

#include<cstdio>
void f(){for(int i=0;i++<99;)printf("(%s%d%s%s%s"+!!(i%3),i%4?"":"[",i,i%4?"":"]",i%3?"":")",i%99?" ":"");}

การเพิ่มประสิทธิภาพเฉพาะ C: 115 ไบต์

#include<stdio.h>
i;f(){for(;i++<99;)printf("(%s%d%s%s%s"+!!(i%3),i%4?"":"[",i,i%4?"":"]",i%3?"":")",i%99?" ":"");}

Powershell ขนาด 60 ไบต์

"$(1..99|%{($_,"($_)","[$_]","([$_])")[!($_%3)+2*!($_%4)]})"

คำอธิบาย:

• อาร์เรย์ที่มี 4 องค์ประกอบ: $_, "($_)", "[$_]", "([$_])"
• และดัชนี: [!($_%3)+2*!($_%4)]
• ทำซ้ำสำหรับแต่ละหมายเลข
• แปลงผลลัพธ์เป็นสตริง

สคริปต์ทดสอบที่ตีกอล์ฟน้อย:

$f = {

$r = 1..99|%{
    ($_, "($_)", "[$_]", "([$_])") [!($_%3)+2*!($_%4)]
}
"$($r)"

}

$expected = '1 2 (3) [4] 5 (6) 7 [8] (9) 10 11 ([12]) 13 14 (15) [16] 17 (18) 19 [20] (21) 22 23 ([24]) 25 26 (27) [28] 29 (30) 31 [32] (33) 34 35 ([36]) 37 38 (39) [40] 41 (42) 43 [44] (45) 46 47 ([48]) 49 50 (51) [52] 53 (54) 55 [56] (57) 58 59 ([60]) 61 62 (63) [64] 65 (66) 67 [68] (69) 70 71 ([72]) 73 74 (75) [76] 77 (78) 79 [80] (81) 82 83 ([84]) 85 86 (87) [88] 89 (90) 91 [92] (93) 94 95 ([96]) 97 98 (99)'
$result = &$f
$result-eq$expected
$result

เอาท์พุท:

True
1 2 (3) [4] 5 (6) 7 [8] (9) 10 11 ([12]) 13 14 (15) [16] 17 (18) 19 [20] (21) 22 23 ([24]) 25 26 (27) [28] 29 (30) 31 [32] (33) 34 35 ([36]) 37 38 (39) [40] 41 (42) 43 [44] (45) 46 47 ([48]) 49 50 (51) [52] 53 (54) 55 [56] (57) 58 59 ([60]) 61 62 (63) [64] 65 (66) 67 [68] (69) 70 71 ([72]) 73 74 (75) [76] 77 (78) 79 [80] (81) 82 83 ([84]) 85 86 (87) [88] 89 (90) 91 [92] (93) 94 95 ([96]) 97 98 (99)

MathGolf , 41 40 34 29 ไบต์

♀({îû)(î+╫îa_'(\')ßyΓî34α÷ä§ 

หมายเหตุ: มันมีพื้นที่ต่อท้าย

เพียงคำตอบ MathGolf ที่สองของฉัน ..
-5 ไบต์ขอบคุณที่@JoKing

ลองออนไลน์

คำอธิบาย:

♀(             # Push 99 (100 decreased by 1)
  {            # Start a loop, which implicitly loops down to (and excluding) 0
   û)(         #  Push string ")("
      î+       #  Append the 1-indexed index
        ╫      #  Rotate the string once towards the right
   îa          #  Push the 1-indexed index of the loop, wrap in a list
   _           #  Duplicate it
    '(        '#  Push string "("
      \        #  Swap the top two items of the stack
       ')     '#  Push string ")"
         ßy    #  Wrap all three into a list, and join them
   Γ           #  Wrap all four into a list
               #  (We now have a list [N, "(N)", "[N]", "([N])"], where N is the index)
   î           #  Push the 1-indexed index of the loop
    34         #  Push 3 and 4 to the stack
      α        #  Wrap all three into a list
       ÷       #  Check for each if the index is divisible by it
               #  (resulting in either [0,0], [0,1], [1,0], or [1,1]
        ä      #  Convert from binary to integer
               #  (resulting in either 0, 1, 2, or 3
         §     #  Push the string at that index from the array
               #  Push a space
               # (After the loop, output the entire stack joined together implicitly)

Haskell , 77 ไบต์

unwords[f"()"3$f"[]"4$show n|n<-[1..99],let f(x:r)m s|mod n m<1=x:s++r|1<3=s]

ลองออนไลน์!

ฉันสงสัยว่าshow[n]สามารถนำมาใช้เพื่อตัดสิ่งขึ้นเพื่อให้ห่างไกลจะไม่มีประโยชน์

Lua, 161 123 ไบต์

b=""for i=1,99 do;c,d=i%3==0,i%4==0;b=b..(c and"("or"")..(d and"["or"")..i..(d and"]"or"")..(c and")"or"").." "end;print(b)

ลองออนไลน์!

Ungolfed:

b = ""
for i = 1, 99 do
    c = 1 % 3 == 0
    d = 1 % 4 == 0
    a = ""
    if c then
        a = a .. "("
    end
    if d then
        a = a .. "["
    end
    a = a .. i
    if d then
        a = a .. "]"
    end
    if c then
        a = a .. ")"
    end
    b = b .. a .. " "
end
print(b)

Python 2 , 105 97 88 86 85 84 ไบต์

x=1
while x<100:print((('%s','(%s)')[x%3<1],'[%s]')[x%4<1],'([%s])')[x%12<1]%x,;x+=1

ลองออนไลน์!

C (gcc) , 84 ไบต์

main(i){while(99/i++)printf("%s%s%d%s%s ","("+i%3,"["+i%4,i-1,"]"+i%4,")"+i%3);}

มีค่า null ที่จุดเริ่มต้นของแต่ละ "วงเล็บสตริง"

ลองออนไลน์!

PowerShell , 67 62 ไบต์

"$(1..99|%{'('*!($x=$_%3)+'['*!($y=$_%4)+$_+']'*!$y+')'*!$x})"

ลองออนไลน์!

โดยทั่วไปFizzBuzz จะใช้การคูณสตริงด้วยตัวแปรบูลีน (โดยทั่วไปจะใช้ 1 หรือ 0) สตริงเหล่านั้นจะถูกทิ้งไว้ที่ไพพ์ไลน์และรวบรวมไว้ในบล็อกสคริปต์ภายในเครื่องหมายคำพูด เนื่องจากค่าเริ่มต้น$OutputFieldSeparatorสำหรับอาเรย์เป็นช่องว่างสิ่งนี้จะให้องค์ประกอบอาเรย์ที่คั่นด้วยปริภูมิโดยปริยาย

C #, 124 117 123 ไบต์

-5 ไบต์ขอบคุณ Kevin Cruijssen

x=>{for(int i=0;i++<99;)System.Console.Write((i%3<1?"(":"")+(i%4<1?"[":"")+i+(i%4<1?"]":"")+(i%3<1?")":"")+(i>98?"":" "));}

ทดสอบกับ:

Action<int> t = x=>{for(int i=0;i++<99;)System.Console.Write((i%3<1?"(":"")+(i%4<1?"[":"")+i+(i%4<1?"]":"")+(i%3<1?")":"")+(i>98?"":" "));}
t.Invoke(0);
Console.ReadKey();

สีแดง , 99 97 ไบต์

repeat n 99[a: b: c: d:""if n% 3 = 0[a:"("c:")"]if n% 4 = 0[b:"["d:"]"]prin rejoin[a b n d c" "]]

ลองออนไลน์!

Ruby , 72 66 ไบต์

p [*1..99].map{|x|a=x
a="[#{x}]"if x%4<1
a="(#{a})"if x%3<1
a}*' '

ขอบคุณ @ jonathan-frech และ @ conor-obrien สำหรับการตัดแต่งเพิ่มเติม

PowerShell, 98 82 74 67 63 62 ไบต์

มหันต์ -31 ไบต์ขอบคุณ @Veskah -5 ไบต์ขอบคุณ @ ASCII- เท่านั้น

(1..99|%{(($a=($_,"[$_]")[!($_%4)]),"($a)")[!($_%3)]})-join' '

ลองออนไลน์!

ฉันยังไม่แน่ใจว่าสิ่งที่ฉันทำที่นี่

perl -E, 60 ไบต์

$,=$";say map$_%12?$_%3?$_%4?$_:"[$_]":"($_)":"([$_])",1..99

บางไบต์สามารถบันทึกได้หากเราสามารถใช้การขึ้นบรรทัดใหม่ระหว่างตัวเลข: ในกรณีนี้เราสามารถลบ$,=$";, เปลี่ยนmapเป็นforลูป, ในขณะที่ย้ายsayเข้าไปในลูป

Perl 6 , 51 48 ไบต์

put {$_%3??$^a!!"($a)"}(++$_%4??$_!!"[$_]")xx 99

ลองออนไลน์!

แบตช์ 145 ไบต์

@set s=
@for /l %%i in (1,1,99)do @set/an=%%i,b=n%%4,p=n%%3&call:c
@echo%s%
:c
@if %b%==0 set n=[%n%]
@if %p%==0 set n=(%n%)
@set s=%s% %n%

รหัสผ่านเข้าไปในรูทีนย่อย แต่สตริงได้ถูกพิมพ์โดยจุดนี้ดังนั้นโค้ดจะทำงานโดยไม่เป็นอันตราย

PHP 103

for(;$i<1e2;$i++)$a.=$i%12==0?"([$i]) ":($i%3==0?"($i) ":($i%4==0?"[$i] ":"$i "));echo substr($a,5,-1);

https://www.ideone.com/SBAuWp

ทำความสะอาด , 100 ไบต์

import StdEnv,Text

join" "[if(n/3*3<n)m("("+m+")")\\n<-[1..99],m<-[if(n/4*4<n)(""<+n)("["<+n<+"]")]]

ลองออนไลน์!

sfk , 225 ไบต์

for n from 1 to 99 +calc -var #(n)/3+1/3 -dig=0 +calc -var #text*3-#(n) +setvar t +calc -var #(n)/4 -dig=0 +calc -var #text*4-#(n) +xed -var _0_#(t)\[#(n)\]_ _*_#(t)#(n)_ +xed _0*_([part2])_ _?*_[part2]_ +xed "_\n_ _" +endfor

ลองออนไลน์!

Bash, 61 ไบต์

-14 ไบต์ขอบคุณเดนนิส

seq 99|awk '{ORS=" ";x=$1%4?$1:"["$1"]";print$1%3?x:"("x")"}'

คำอธิบาย

ตรงไปตรงมาสวย:

• seq ผลิต 1..99
• เราไปป์ที่awkด้วยตัวคั่นเร็กคอร์ดผลลัพธ์ ( ORS) ตั้งค่าเป็นพื้นที่ดังนั้นเอาท์พุทเป็นบรรทัดเดียว
• ร่างกาย awk หลักเพียงแค่เพิ่ม "[]" เมื่อจำนวนหารด้วย 4 แล้วเพิ่มบนนั้น "()" เมื่อหารด้วย 3

ลองออนไลน์!

JavaScript (Node.js) , 57 ไบต์

f=(n=99)=>n&&f(n-1)+(s=n%4?n:`[${n}]`,n%3?s:`(${s})`)+' '

ลองออนไลน์!

เปลี่ยนเป็นชุมชนเพราะการเพิ่มประสิทธิภาพนั้นขึ้นอยู่กับมันมากเกินไป

PHP, 65 ไบต์

while($i++<99)echo$i%4?$i%3?$i:"($i)":($i%3?"[$i]":"([$i])")," ";

หรือ

while($i++<99)echo"("[$i%3],"["[$i%4],$i,"]"[$i%4],")"[$i%3]," ";

(ต้องการ PHP 5.5 หรือใหม่กว่า)

ทำงานด้วย-nrหรือลองพวกเขาออนไลน์

Python 2 , 78 ไบต์

i=0
exec"i+=1;u=i%3/-2*(i%4/-3-1);print'([%0d])'[u:7-u:1+(i%3<1<=i%4)]%i,;"*99

ลองออนไลน์!

ฉันจินตนาการว่าวิธีการที่เจ๋ง ๆ นี้หลุด'([%0d])'แต่ฉันไม่สามารถทำให้การแสดงออกสั้นลงได้

Java 8, 92 91 ไบต์

-1 ไบต์ขอบคุณ @Dana

i->{for(;i++<99;)out.printf((i>1?" ":"")+(i%12<1?"([%d])":i%3<1?"(%d)":i%4<1?"[%d]":i),i);}

ลองออนไลน์!

ทางเลือกทางเลือก 82 ไบต์ (ด้วยพื้นที่ต่อท้ายในเอาต์พุต - ไม่แน่ใจว่าได้รับอนุญาตหรือไม่):

i->{for(;i++<99;)out.printf((i%12<1?"([%d])":i%3<1?"(%d)":i%4<1?"[%d]":i)+" ",i);}

คำอธิบาย:

for(;i++<99;)- a สำหรับลูปที่เปลี่ยนจากค่าของi(นำกลับมาใช้ใหม่เป็นอินพุตนำมาเป็น 0 ในกรณีนี้) ถึง 99

out.printf(<part1>+<part2>,i); - จัดรูปแบบสตริงก่อนที่จะพิมพ์ทันทีเพื่อ stdout ด้วยค่าของ i

ที่<part1>เป็น(i>1?" ":"")- พิมพ์พื้นที่ก่อนที่จะพิมพ์จำนวนเว้นแต่ตัวเลขที่เป็น 1 ในกรณีที่มันละเว้นพื้นที่

และ<part2>เป็น(i%12<1?"([%d])":i%3<1?"(%d)":i%4<1?"[%d]":i)- ถ้าiหารด้วยทั้ง 3 และ 4 iมีทั้งตารางและวงเล็บรอบรอบ; มิฉะนั้นถ้าiหารด้วย 3 iได้จะได้เครื่องหมายวงเล็บ; มิฉะนั้นถ้าiหารด้วย 4 iจะได้วงเล็บเหลี่ยม อื่นiไม่มีวงเล็บ