A-M baby

Task/FizzBuzz/FALSE/fizzbuzz.false

@@ -0,0 +1,4 @@
+[\$@$@\/*=]d:
+[1\$3d;!["Fizz"\%0\]?$5d;!["Buzz"\%0\]?\[$.]?"
+"]f:
+0[$100<][1+f;!]#%

Task/FizzBuzz/Factor/fizzbuzz.factor

@@ -0,0 +1,7 @@
+USING: math kernel io math.ranges ;
+IN: fizzbuzz
+: fizz ( n -- str ) 3 divisor? "Fizz" "" ? ;
+: buzz ( n -- str ) 5 divisor? "Buzz" "" ? ;
+: fizzbuzz ( n -- str ) dup [ fizz ] [ buzz ] bi append [ number>string ] [ nip ] if-empty ;
+: main ( -- ) 100 [1,b] [ fizzbuzz print ] each ;
+MAIN: main

Task/FizzBuzz/Falcon/fizzbuzz.falcon

@@ -0,0 +1,8 @@
+for i in [1:101]
+    switch i % 15
+    case 0        : > "FizzBuzz"
+    case 5,10     : > "Buzz"
+    case 3,6,9,12 : > "Fizz"
+    default       : > i
+    end
+end

Task/FizzBuzz/Fantom/fizzbuzz.fantom

@@ -0,0 +1,17 @@
+class FizzBuzz
+{
+  public static Void main ()
+  {
+    for (Int i:=1; i <= 100; ++i)
+    {
+      if (i % 15 == 0)
+        echo ("FizzBuzz")
+      else if (i % 3 == 0)
+        echo ("Fizz")
+      else if (i % 5 == 0)
+        echo ("Buzz")
+      else
+        echo (i)
+    }
+  }
+}

Task/FizzBuzz/Frink/fizzbuzz.frink

@@ -0,0 +1,20 @@
+for i = 1 to 100
+{
+   flag = false
+   if i mod 3 == 0
+   {
+      flag = true
+      print["Fizz"]
+   }
+
+   if i mod 5 == 0
+   {
+      flag = true
+      print["Buzz"]
+   }
+
+   if flag == false
+      print[i]
+
+   println[]
+}

Task/FizzBuzz/GAP/fizzbuzz.gap

@@ -0,0 +1,14 @@
+FizzBuzz := function()
+	local i;
+	for i in [1 .. 100] do
+		if RemInt(i, 15) = 0 then
+			Print("FizzBuzz\n");
+		elif RemInt(i, 3) = 0 then
+			Print("Fizz\n");
+		elif RemInt(i, 5) = 0 then
+			Print("Buzz\n");
+		else
+			Print(i, "\n");
+		fi;
+	od;
+end;

Task/FizzBuzz/Gosu/fizzbuzz-1.gosu

@@ -0,0 +1,21 @@
+for (i in 1..100) {
+
+    if (i % 3 == 0 && i % 5 == 0) {
+        print("FizzBuzz")
+        continue
+    }
+
+    if (i % 3 == 0) {
+        print("Fizz")
+        continue
+    }
+
+    if (i % 5 == 0) {
+        print("Buzz")
+        continue
+    }
+
+    // default
+    print(i)
+
+}

Task/FizzBuzz/Gosu/fizzbuzz-2.gosu

@@ -0,0 +1,4 @@
+// note that compiler reports error (I don't know why) but still it's working
+for (i in 1..100) {
+    print(i % 5 == 0 ? i % 3 == 0 ? "FizzBuzz" : "Buzz" : i % 3 == 0 ? "Fizz" : i)
+}

Task/FizzBuzz/Groovy/fizzbuzz.groovy

@@ -0,0 +1,3 @@
+for (i in 1..100) {
+  println "${i%3?'':'Fizz'}${i%5?'':'Buzz'}" ?: i
+}

Task/FizzBuzz/HicEst/fizzbuzz-1.hicest

@@ -0,0 +1,11 @@
+DO i = 1, 100
+  IF(     MOD(i, 15) == 0 ) THEN
+    WRITE() "FizzBuzz"
+  ELSEIF( MOD(i, 5) == 0 ) THEN
+    WRITE() "Buzz"
+  ELSEIF( MOD(i, 3) == 0 ) THEN
+    WRITE() "Fizz"
+  ELSE
+    WRITE() i
+  ENDIF
+ENDDO

Task/FizzBuzz/HicEst/fizzbuzz-2.hicest

@@ -0,0 +1,9 @@
+CHARACTER string*8
+
+DO i = 1, 100
+  string = " "
+  IF( MOD(i, 3) == 0 ) string = "Fizz"
+  IF( MOD(i, 5) == 0 ) string = TRIM(string) // "Buzz"
+  IF( string == " ") WRITE(Text=string) i
+  WRITE() string
+ENDDO

Task/FizzBuzz/Icon/fizzbuzz-1.icon

@@ -0,0 +1,12 @@
+# straight-forward modulo tester
+procedure main()
+    every i := 1 to 100 do
+        if i % 15 = 0 then
+            write("FizzBuzz")
+        else if i % 5 = 0 then
+            write("Buzz")
+        else if i % 3 = 0 then
+            write("Fizz")
+        else
+            write(i)
+end

Task/FizzBuzz/Icon/fizzbuzz-2.icon

@@ -0,0 +1,5 @@
+# idiomatic modulo tester, 1st alternative
+procedure main()
+    every i := 1 to 100 do
+        write((i % 15 = 0 & "FizzBuzz") | (i % 5 = 0 & "Buzz") | (i % 3 = 0 & "Fizz") | i)
+end

Task/FizzBuzz/Icon/fizzbuzz-3.icon

@@ -0,0 +1,10 @@
+# idiomatic modulo tester, 2nd alternative
+procedure main()
+    every i := 1 to 100 do
+        write(case 0 of {
+                 i % 15 : "FizzBuzz"
+                 i % 5  : "Buzz"
+                 i % 3  : "Fizz"
+                 default: i
+        })
+end

Task/FizzBuzz/Icon/fizzbuzz-4.icon

@@ -0,0 +1,13 @@
+# straight-forward buffer builder
+procedure main()
+    every i := 1 to 100 do {
+        s := ""
+        if i % 3 = 0 then
+            s ||:= "Fizz"
+        if i % 5 = 0 then
+            s ||:= "Buzz"
+        if s == "" then
+            s := i
+        write(s)
+    }
+end

Task/FizzBuzz/Icon/fizzbuzz-5.icon

@@ -0,0 +1,5 @@
+# idiomatic buffer builder, 1st alternative
+procedure main()
+    every i := 1 to 100 do
+        write("" ~== (if i % 3 = 0 then "Fizz" else "") || (if i % 5 == 0 then "Buzz" else "") | i)
+end

Task/FizzBuzz/Icon/fizzbuzz-6.icon

@@ -0,0 +1,8 @@
+# idiomatic buffer builder, 2nd alternative
+procedure main()
+    every i := 1 to 100 do {
+        s   := if i%3 = 0 then "Fizz" else ""
+        s ||:= if i%5 = 0 then "Buzz"
+        write(("" ~= s) | i)
+    }
+end

Task/FizzBuzz/Inform-6/fizzbuzz.inf

@@ -0,0 +1,10 @@
+[ Main i;
+  for(i = 1: i <= 100: i++)
+  {
+    if(i % 3 == 0) print "Fizz";
+    if(i % 5 == 0) print "Buzz";
+    if(i % 3 ~= 0 && i % 5 ~= 0) print i;
+
+    print "^";
+  }
+];

Task/FizzBuzz/Inform-7/fizzbuzz.inf

@@ -0,0 +1,14 @@
+Home is a room.
+
+When play begins:
+	repeat with N running from 1 to 100:
+		let printed be false;
+		if the remainder after dividing N by 3 is 0:
+			say "Fizz";
+			now printed is true;
+		if the remainder after dividing N by 5 is 0:
+			say "Buzz";
+			now printed is true;
+		if printed is false, say N;
+		say ".";
+	end the story.

Task/FizzBuzz/Io/fizzbuzz-1.io

@@ -0,0 +1,11 @@
+for(a,1,100,
+   if(a % 15 == 0) then(
+      "FizzBuzz" println
+   ) elseif(a % 3 == 0) then(
+      "Fizz" println
+   ) elseif(a % 5 == 0) then(
+      "Buzz" println
+   ) else (
+      a println
+   )
+)

Task/FizzBuzz/Io/fizzbuzz-2.io

@@ -0,0 +1,7 @@
+a := 0; b := 0
+for(n, 1, 100,
+    if(a = (n % 3) == 0, "Fizz" print);
+    if(b = (n % 5) == 0, "Buzz" print);
+    if(a not and b not, n print);
+    "\n" print
+)

Task/FizzBuzz/Io/fizzbuzz-3.io

@@ -0,0 +1,7 @@
+for (n, 1, 100,
+    fb := list (
+        if (n % 3 == 0, "Fizz"),
+        if (n % 5 == 0, "Buzz")) select (isTrue)
+
+    if (fb isEmpty, n, fb join) println
+)

Task/FizzBuzz/Ioke/fizzbuzz.ioke

@@ -0,0 +1,7 @@
+(1..100) each(x,
+  cond(
+    (x % 15) zero?, "FizzBuzz" println,
+    (x % 3) zero?, "Fizz" println,
+    (x % 5) zero?, "Buzz" println
+  )
+)

Task/FizzBuzz/Iptscrae/fizzbuzz.iptscrae

@@ -0,0 +1,10 @@
+; FizzBuzz in Iptscrae
+1 a =
+{
+   "" b =
+   { "fizz" b &= } a 3 % 0 == IF
+   { "buzz" b &= } a 5 % 0 == IF
+   { a ITOA LOGMSG } { b LOGMSG } b STRLEN 0 == IFELSE
+   a ++
+}
+{ a 100 <= } WHILE

Task/FizzBuzz/J/fizzbuzz-1.j

@@ -0,0 +1,2 @@
+   test =: +/@(1 2 * 0 = 3 5&|~)
+   (":@]`('Fizz'"_)`('Buzz'"_)`('FizzBuzz'"_) @. test"0)  >:i.100

Task/FizzBuzz/J/fizzbuzz-2.j

@@ -0,0 +1 @@
+> }. (<'FizzBuzz') (I.0=15|n)} (<'Buzz') (I.0=5|n)} (<'Fizz') (I.0=3|n)} ":&.> n=: i.101

Task/FizzBuzz/J/fizzbuzz-3.j

@@ -0,0 +1,5 @@
+Fizz=: 'Fizz' #~ 0 = 3&|
+Buzz=: 'Buzz' #~ 0 = 5&|
+FizzBuzz=: ": [^:('' -: ]) Fizz,Buzz
+
+FizzBuzz"0 >: i.100

Task/FizzBuzz/J/fizzbuzz-4.j

@@ -0,0 +1,6 @@
+CRT0=: 2 : ' (, 0 = +./)@(0 = m | ]) ;@# n , <@": '
+NB. Rather (, 0 = +./) than (, +:/) because designed for
+NB. 3 5 7 CRT0 (;:'Chinese Remainder Period') "0 >: i. */3 5 7
+FizzBuzz=: 3 5 CRT0 (;:'Fizz Buzz')
+
+FizzBuzz"0 >: i.100

Task/FizzBuzz/J/fizzbuzz-5.j

@@ -0,0 +1,6 @@
+'`f   b   fb'  =: ('Fizz'"_) ` ('Buzz'"_) ` (f , b)
+'`cm3 cm5 cm15'=: (3&|)      ` (5&|)      ` (15&|)  (0&=@)
+FizzBuzz=: ": ` f @. cm3 ` b @. cm5 ` fb @. cm15  NB. also:
+FizzBuzz=: ": ` f @. cm3 ` b @. cm5 ` (f,b) @. (cm3 *. cm5)
+
+FizzBuzz"0 >: i.100

Task/FizzBuzz/Joy/fizzbuzz.joy

@@ -0,0 +1,2 @@
+DEFINE one == [[[dup 15 rem 0 =] "FizzBuzz"] [[dup 3 rem 0 =] "Fizz"] [[dup 5 rem 0 =] "Buzz"] [dup]] cond.
+1 [100 <=] [dup one put succ] while.

Task/FizzBuzz/Julia/fizzbuzz.julia

@@ -0,0 +1,11 @@
+for i = 1:100
+    if i % 15 == 0
+        println("FizzBuzz")
+    elseif i % 3 == 0
+        println("Fizz")
+    elseif i % 5 == 0
+        println("Buzz")
+    else
+        println(i)
+    end
+end

Task/FizzBuzz/K/fizzbuzz.k

@@ -0,0 +1 @@
+`0:\:{:[0=#a:{,/$(:[0=x!3;"Fizz"];:[0=x!5;"Buzz"])}@x;$x;a]}'1_!101

Task/FizzBuzz/Kaya/fizzbuzz.kaya

@@ -0,0 +1,20 @@
+// fizzbuzz in Kaya
+program fizzbuzz;
+
+Void fizzbuzz(Int size) {
+    for i in [1..size] {
+        if (i % 15 == 0) {
+            putStrLn("FizzBuzz");
+        } else if (i % 5 == 0) {
+            putStrLn("Buzz");
+        } else if (i % 3 == 0) {
+            putStrLn("Fizz");
+        } else {
+            putStrLn( string(i) );
+        }
+    }
+}
+
+Void main() {
+    fizzbuzz(100);
+}

Task/FizzBuzz/LOLCODE/fizzbuzz.lol

@@ -0,0 +1,18 @@
+HAI 1.3
+
+IM IN YR fizz UPPIN YR i TIL BOTH SAEM i AN 100
+    I HAS A i ITZ SUM OF i AN 1 BTW, ALL LUPZ START AT 0 :/
+    I HAS A mod3 ITZ NOT MOD OF i AN 3
+    I HAS A mod5 ITZ NOT MOD OF i AN 5
+
+    mod3, O RLY?, YA RLY, VISIBLE "Fizz"!, OIC
+    mod5, O RLY?, YA RLY, VISIBLE "Buzz"!, OIC
+
+    NOT EITHER OF mod3 AN mod5, O RLY?
+        YA RLY, VISIBLE i!
+    OIC
+
+    VISIBLE ""
+IM OUTTA YR fizz
+
+KTHXBYE

Task/FizzBuzz/Liberty-BASIC/fizzbuzz.liberty

@@ -0,0 +1,12 @@
+for i = 1 to 100
+    select case
+        case i mod 15 = 0
+            print "FizzBuzz"
+        case i mod 3 = 0
+            print "Fizz"
+        case i mod 5 = 0
+            print "Buzz"
+        case else
+            print i
+    end select
+next i

Task/FizzBuzz/Logo/fizzbuzz-1.logo

@@ -0,0 +1,8 @@
+to fizzbuzz :n
+  output cond [ [[equal? 0 modulo :n 15] "FizzBuzz]
+                [[equal? 0 modulo :n  5] "Buzz]
+                [[equal? 0 modulo :n  3] "Fizz]
+                [else :n] ]
+end
+
+repeat 100 [print fizzbuzz #]

Task/FizzBuzz/Logo/fizzbuzz-2.logo

@@ -0,0 +1,8 @@
+to fizzbuzz :n
+ make "c "
+  if equal? 0 modulo :n 5 [make "c "Buzz]
+  if equal? 0 modulo :n 3 [make "c word "Fizz :c]
+ output ifelse equal? :c " [:n] [:c]
+end
+
+repeat 100 [print fizzbuzz repcount]

Task/FizzBuzz/M4/fizzbuzz.m4

@@ -0,0 +1,10 @@
+define(`for',
+   `ifelse($#,0,``$0'',
+   `ifelse(eval($2<=$3),1,
+   `pushdef(`$1',$2)$5`'popdef(`$1')$0(`$1',eval($2+$4),$3,$4,`$5')')')')
+
+for(`x',1,100,1,
+   `ifelse(eval(x%15==0),1,FizzBuzz,
+   `ifelse(eval(x%3==0),1,Fizz,
+   `ifelse(eval(x%5==0),1,Buzz,x)')')
+')

Task/FizzBuzz/MAXScript/fizzbuzz.max

@@ -0,0 +1,10 @@
+for i in 1 to 100 do
+(
+    case of
+    (
+        (mod i 15 == 0): (print "FizzBuzz")
+        (mod i 5 == 0):  (print "Buzz")
+        (mod i 3 == 0):  (print "Fizz")
+        default:         (print i)
+    )
+)

Task/FizzBuzz/MEL/fizzbuzz.mel

@@ -0,0 +1,11 @@
+for($i=1; $i<=100; $i++)
+{
+    if($i % 15 == 0)
+        print "FizzBuzz\n";
+    else if ($i % 3 == 0)
+        print "Fizz\n";
+    else if ($i % 5 == 0)
+        print "Buzz\n";
+    else
+        print ($i + "\n");
+}

Task/FizzBuzz/MMIX/fizzbuzz.mmix

@@ -0,0 +1,63 @@
+t   IS $255
+Ja  IS $127
+
+       LOC Data_Segment
+data   GREG   @
+
+fizz   IS @-Data_Segment
+       BYTE "Fizz",0,0,0,0
+
+buzz   IS @-Data_Segment
+       BYTE "Buzz",0,0,0,0
+
+nl     IS @-Data_Segment
+       BYTE #a,0,0,0,0,0,0,0
+
+buffer IS @-Data_Segment
+
+
+
+       LOC #1000
+       GREG @
+
+% "usual" print integer subroutine
+printnum LOC @
+       OR   $1,$0,0
+       SETL $2,buffer+64
+       ADDU $2,$2,data
+       XOR  $3,$3,$3
+       STBU $3,$2,1
+loop   DIV  $1,$1,10
+       GET  $3,rR
+       ADDU $3,$3,'0'
+       STBU $3,$2,0
+       SUBU $2,$2,1
+       PBNZ $1,loop
+       ADDU t,$2,1
+       TRAP 0,Fputs,StdOut
+       GO   Ja,Ja,0
+
+Main   SETL $0,1           % i = 1
+1H     SETL $2,0           % fizz not taken
+       CMP  $1,$0,100      % i <= 100
+       BP   $1,4F          % if no, go to end
+       DIV  $1,$0,3
+       GET  $1,rR          % $1 = mod(i,3)
+       CSZ  $2,$1,1        % $2 = Fizz taken?
+       BNZ  $1,2F          % $1 != 0? yes, then skip
+       ADDU t,data,fizz
+       TRAP 0,Fputs,StdOut % print "Fizz"
+2H     DIV  $1,$0,5
+       GET  $1,rR          % $1 = mod(i,5)
+       BNZ  $1,3F          % $1 != 0? yes, then skip
+       ADDU t,data,buzz
+       TRAP 0,Fputs,StdOut % print "Buzz"
+       JMP  5F             % skip print i
+3H     BP   $2,5F          % skip if Fizz was taken
+       GO   Ja,printnum    % print i
+5H     ADDU t,data,nl
+       TRAP 0,Fputs,StdOut % print newline
+       ADDU $0,$0,1
+       JMP  1B             % repeat for next i
+4H     XOR  t,t,t
+       TRAP 0,Halt,0       % exit(0)

Task/FizzBuzz/MUMPS/fizzbuzz.mumps

@@ -0,0 +1,5 @@
+FIZZBUZZ
+ NEW I
+ FOR I=1:1:100 WRITE !,$SELECT(('(I#3)&'(I#5)):"FizzBuzz",'(I#5):"Buzz",'(I#3):"Fizz",1:I)
+ KILL I
+ QUIT

Task/FizzBuzz/Mathematica/fizzbuzz-1.mathematica

@@ -0,0 +1 @@
+Do[Print[Which[Mod[i, 15] == 0, "FizzBuzz", Mod[i, 5] == 0, "Buzz", Mod[i, 3] == 0, "Fizz", True, i]], {i, 100}]

Task/FizzBuzz/Mathematica/fizzbuzz-2.mathematica

@@ -0,0 +1,4 @@
+fizz[i_] := Mod[i, 3] == 0
+buzz[i_] := Mod[i, 5] == 0
+Range[100] /. {i_ /; fizz[i]&&buzz[i] :> "FizzBuzz", \
+               i_?fizz :> "Fizz", i_?buzz :> "Buzz"}

Task/FizzBuzz/Mathematica/fizzbuzz-3.mathematica

@@ -0,0 +1,4 @@
+Table[If[# === "", i, #]&@StringJoin[
+   Table[If[Divisible[i, First@nw], Last@nw, ""],
+         {nw, {{3, "Fizz"}, {5, "Buzz"}}}]],
+      {i, 1, 100}]

Task/FizzBuzz/Maxima/fizzbuzz.maxima

@@ -0,0 +1,5 @@
+for n thru 100 do
+   if mod(n, 15) = 0 then disp("FizzBuzz")
+   elseif mod(n, 3) = 0 then disp("Fizz")
+   elseif mod(n,5) = 0 then disp("Buzz")
+   else disp(n);

Task/FizzBuzz/Mercury/fizzbuzz.mercury

@@ -0,0 +1,26 @@
+:- module fizzbuzz.
+:- interface.
+:- import_module io.
+:- pred main(io::di, io::uo) is det.
+:- implementation.
+:- import_module int, string, bool.
+
+:- func fizz(int) = bool.
+:- func buzz(int) = bool.
+fizz(N) = ( if N mod 3 = 0 then yes else no ).
+buzz(N) = ( if N mod 5 = 0 then yes else no ).
+
+:- pred fizzbuzz(int::in, bool::in, bool::in, string::out) is det.
+%           3?   5?
+fizzbuzz(_, yes, yes, "FizzBuzz").
+fizzbuzz(_, yes, no,  "Fizz").
+fizzbuzz(_, no,  yes, "Buzz").
+fizzbuzz(N, no,  no,  S) :- S = from_int(N).
+
+main(!IO) :- main(1, 100, !IO).
+
+:- pred main(int::in, int::in, io::di, io::uo) is det.
+main(N, To, !IO) :-
+	io.write_string(S, !IO), io.nl(!IO),
+	fizzbuzz(N, fizz(N), buzz(N), S),
+	( if N < To then main(N + 1, To, !IO) else !:IO = !.IO ).

Task/FizzBuzz/Metafont/fizzbuzz.metafont

@@ -0,0 +1,7 @@
+for i := 1 upto 100:
+message if i mod 15 = 0: "FizzBuzz" &
+elseif i mod 3 = 0: "Fizz" &
+elseif i mod 5 = 0: "Buzz" &
+else: decimal i & fi "";
+endfor
+end

Task/FizzBuzz/Mirah/fizzbuzz.mirah

@@ -0,0 +1,19 @@
+1.upto(100) do |n|
+    print "Fizz" if a = ((n % 3) == 0)
+    print "Buzz" if b = ((n % 5) == 0)
+    print n unless (a || b)
+    print "\n"
+end
+
+# a little more straight forward
+1.upto(100) do |n|
+    if (n % 15) == 0
+        puts "FizzBuzz"
+    elsif (n % 5) == 0
+        puts "Buzz"
+    elsif (n % 3) == 0
+        puts "Fizz"
+    else
+        puts n
+    end
+end

Task/FizzBuzz/Modula-3/fizzbuzz.mod3

@@ -0,0 +1,18 @@
+MODULE Fizzbuzz EXPORTS Main;
+
+IMPORT IO;
+
+BEGIN
+   FOR i := 1 TO 100 DO
+      IF i MOD 15 = 0 THEN
+         IO.Put("FizzBuzz\n");
+      ELSIF i MOD 5 = 0 THEN
+         IO.Put("Buzz\n");
+      ELSIF i MOD 3 = 0 THEN
+         IO.Put("Fizz\n");
+      ELSE
+         IO.PutInt(i);
+         IO.Put("\n");
+      END;
+   END;
+END Fizzbuzz.