First commit of partial RosettaCode contents.

Pushing this for testing purposes. Lots of work still needed.

Task/FizzBuzz/0DESCRIPTION

@@ -0,0 +1,3 @@
+Write a program that prints the integers from 1 to 100. But for multiples of three print "Fizz" instead of the number and for the multiples of five print "Buzz". For numbers which are multiples of both three and five print "FizzBuzz". [http://weblog.raganwald.com/2007/01/dont-overthink-fizzbuzz.html]
+
+FizzBuzz was presented as the lowest level of comprehension required to illustrate adequacy. [http://www.codinghorror.com/blog/archives/000804.html]

Task/FizzBuzz/1META.yaml

@@ -0,0 +1,5 @@
+---
+category:
+- Iteration
+- Recursion
+note: Classic CS problems and programs

Task/FizzBuzz/AWK/fizzbuzz-2.awk

@@ -0,0 +1,7 @@
+echo {1..100} | awk '
+BEGIN{RS=" "}
+$1 % 15 == 0 {print "FizzBuzz"}
+$1 % 5 == 0 {print "Buzz"}
+$1 % 3 == 0 {print "Fizz"}
+{print}
+'

Task/FizzBuzz/AWK/fizzbuzz-3.awk

@@ -0,0 +1 @@
+seq 100 | awk '$0=NR%15?NR%5?NR%3?$0:"Fizz":"Buzz":"FizzBuzz"'

Task/FizzBuzz/AWK/fizzbuzz.awk

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

Task/FizzBuzz/BASIC/fizzbuzz-2.bas

@@ -0,0 +1,17 @@
+FOR A = 1 TO 100
+   OUT$ = ""
+
+   IF A MOD 3 = 0 THEN
+      OUT$ = "Fizz"
+   END IF
+
+   IF A MOD 5 = 0 THEN
+      OUT$ = OUT$ + "Buzz"
+   END IF
+
+   IF OUT$ = "" THEN
+      OUT$ = STR$(A)
+   END IF
+
+   PRINT OUT$
+NEXT A

Task/FizzBuzz/BASIC/fizzbuzz-3.bas

@@ -0,0 +1,8 @@
+10  DEF  FN M(N) = ((A / N) -  INT (A / N)) * N
+20  FOR A = 1 TO 100
+30  LET O$ = ""
+40  IF  FN M(3) = 0 THEN O$ = "FIZZ"
+50  IF  FN M(5) = 0 THEN O$ = O$ + "BUZZ"
+60  IF O$ = "" THEN O$ =  STR$ (A)
+70  PRINT O$
+80  NEXT A

Task/FizzBuzz/BASIC/fizzbuzz.bas

@@ -0,0 +1,11 @@
+FOR A = 1 TO 100
+   IF A MOD 15 = 0 THEN
+      PRINT "FizzBuzz"
+   ELSE IF A MOD 3 = 0 THEN
+      PRINT "Fizz"
+   ELSE IF A MOD 5 = 0 THEN
+      PRINT "Buzz"
+   ELSE
+      PRINT A
+   END IF
+NEXT A

Task/FizzBuzz/Befunge/fizzbuzz.bf

@@ -0,0 +1,9 @@
+55*4*v    _   v
+v   <>:1-:^
+    |:<$      <    ,*48 <
+    @>0"zzif">:#,_$      v
+>:3%!|    >0"zzub">:#,_$^
+     >:5%!|
+v "buzz"0<>:.           ^
+         |!%5:           <
+>:#,_   $>              ^

Task/FizzBuzz/C/fizzbuzz-2.c

@@ -0,0 +1,16 @@
+#include <stdio.h>
+
+main() {
+  int i = 1;
+  while(i <= 100) {
+    if(i % 15 == 0)
+      puts("FizzBuzz");
+    else if(i % 3 == 0)
+      puts("Fizz");
+    else if(i % 5 == 0)
+      puts("Buzz");
+    else
+      printf("%d\n", i);
+    i++;
+  }
+}

Task/FizzBuzz/C/fizzbuzz-3.c

@@ -0,0 +1,3 @@
+#include <stdio.h>
+#define F(x,y) printf("%s",i%x?"":#y"zz")
+int main(int i){for(--i;i++^100;puts(""))F(3,Fi)|F(5,Bu)||printf("%i",i);return 0;}

Task/FizzBuzz/C/fizzbuzz-4.c

@@ -0,0 +1,11 @@
+#include<stdio.h>
+
+int main ()
+{
+	int i;
+	const char *s[] = { "%d\n", "Fizz\n", s[3] + 4, "FizzBuzz\n" };
+	for (i = 1; i <= 100; i++)
+		printf(s[!(i % 3) + 2 * !(i % 5)], i);
+
+	return 0;
+}

Task/FizzBuzz/C/fizzbuzz.c

@@ -0,0 +1,20 @@
+#include<stdio.h>
+
+int main (void)
+{
+    int i;
+    for (i = 1; i <= 100; i++)
+    {
+        if (!(i % 15))
+            printf ("FizzBuzz");
+        else if (!(i % 3))
+            printf ("Fizz");
+        else if (!(i % 5))
+            printf ("Buzz");
+        else
+            printf ("%d", i);
+
+        printf("\n");
+    }
+    return 0;
+}

Task/FizzBuzz/Clojure/fizzbuzz-2.clj

@@ -0,0 +1 @@
+(map #(let [s (str (if (zero? (mod % 3)) "Fizz") (if (zero? (mod % 5)) "Buzz"))] (if (empty? s) % s)) (range 1 101))

Task/FizzBuzz/Clojure/fizzbuzz-3.clj

@@ -0,0 +1,6 @@
+(def fizzbuzz (lazy-seq (map
+  #(cond (zero? (mod % 15)) "FizzBuzz"
+         (zero? (mod % 5)) "Buzz"
+         (zero? (mod % 3)) "Fizz"
+               :else %)
+  (iterate inc 1))))

Task/FizzBuzz/Clojure/fizzbuzz-4.clj

@@ -0,0 +1,13 @@
+(defn fizz-buzz
+  ([] (fizz-buzz (range 1 101)))
+  ([lst]
+     (letfn [(fizz? [n] (zero? (mod n 3)))
+	     (buzz? [n] (zero? (mod n 5)))]
+       (let [f     "Fizz"
+	     b     "Buzz"
+	     items (map (fn [n]
+			  (cond (and (fizz? n) (buzz? n)) (str f b)
+				(fizz? n) f
+				(buzz? n) b
+				:else n))
+			lst)] items))))

Task/FizzBuzz/Clojure/fizzbuzz-5.clj

@@ -0,0 +1,6 @@
+(map (fn [n]
+       (if-let [fb (seq (concat (when (zero? (mod n 3)) "Fizz")
+                                (when (zero? (mod n 5)) "Buzz")))]
+           (apply str fb)
+           n))
+     (range 1 101))

Task/FizzBuzz/Clojure/fizzbuzz-6.clj

@@ -0,0 +1,4 @@
+(take 100 (map #(let [s (str %2 %3) ] (if (seq s) s (inc %)) )
+            (range)
+            (cycle [ "" "" "Fizz" ])
+            (cycle [ "" "" "" "" "Buzz" ])))

Task/FizzBuzz/Clojure/fizzbuzz.clj

@@ -0,0 +1,5 @@
+(map (fn [x] (cond (zero? (mod x 15)) "FizzBuzz"
+                   (zero? (mod x 5)) "Buzz"
+                   (zero? (mod x 3)) "Fizz"
+		     :else x))
+     (range 1 101))

Task/FizzBuzz/CoffeeScript/fizzbuzz-2.coffee

@@ -0,0 +1,2 @@
+for i in [1..100]
+  console.log(['Fizz' if i % 3 is 0] + ['Buzz' if i % 5 is 0] or i)

Task/FizzBuzz/CoffeeScript/fizzbuzz.coffee

@@ -0,0 +1,9 @@
+for i in [1..100]
+  if i % 15 is 0
+    console.log "FizzBuzz"
+  else if i % 3 is 0
+    console.log "Fizz"
+  else if i % 5 is 0
+    console.log "Buzz"
+  else
+    console.log i

Task/FizzBuzz/Erlang/fizzbuzz.erl

@@ -0,0 +1,7 @@
+fizzbuzz() ->
+    F = fun(N) when N rem 15 == 0 -> "FizzBuzz";
+           (N) when N rem 3 == 0  -> "Fizz";
+           (N) when N rem 5 == 0  -> "Buzz";
+           (N) -> integer_to_list(N)
+        end,
+    [F(N)++"\n" || N <- lists:seq(1,100)].

Task/FizzBuzz/Forth/fizzbuzz-2.fth

@@ -0,0 +1,9 @@
+: .fizzbuzz ( n -- )
+  0 pad c!
+  dup 3 mod 0= if s" Fizz" pad  place then
+  dup 5 mod 0= if s" Buzz" pad +place then
+  pad c@ if drop pad count type else . then ;
+
+: zz ( n -- )
+  1+ 1 do i .fizzbuzz cr loop ;
+100 zz

Task/FizzBuzz/Forth/fizzbuzz-3.fth

@@ -0,0 +1,9 @@
+SYNONYM NOT INVERT \ Bitwise boolean not
+
+: Fizz?  ( n -- ? )  3 MOD 0=  DUP IF ." Fizz" THEN ;
+: Buzz?  ( n -- ? )  5 MOD 0=  DUP IF ." Buzz" THEN ;
+: ?print  ( n ? -- )  IF . THEN ;
+: FizzBuzz  ( -- )
+   101 1 DO CR  I  DUP Fizz? OVER Buzz? OR  NOT ?print  LOOP ;
+
+FizzBuzz

Task/FizzBuzz/Forth/fizzbuzz.fth

@@ -0,0 +1,11 @@
+: fizz ( n -- ) drop ." Fizz" ;
+: buzz ( n -- ) drop ." Buzz" ;
+: fb   ( n -- ) drop ." FizzBuzz" ;
+: vector create does> ( n -- )
+  over 15 mod cells + @ execute ;
+vector .fizzbuzz
+  ' fb   , ' . ,    ' . ,
+  ' fizz , ' . ,    ' buzz ,
+  ' fizz , ' . ,    ' . ,
+  ' fizz , ' buzz , ' . ,
+  ' fizz , ' . ,    ' . ,

Task/FizzBuzz/Fortran/fizzbuzz-2.f

@@ -0,0 +1,12 @@
+program fizzbuzz_select
+    integer :: i
+
+    do i = 1, 100
+       select case (mod(i,15))
+          case 0;        print *, 'FizzBuzz'
+          case 3,6,9,12; print *, 'Fizz'
+          case 5,10;     print *, 'Buzz'
+          case default;  print *, i
+       end select
+    end do
+ end program fizzbuzz_select

Task/FizzBuzz/Fortran/fizzbuzz.f

@@ -0,0 +1,11 @@
+program fizzbuzz_if
+   integer :: i
+
+   do i = 1, 100
+      if     (mod(i,15) == 0) then; print *, 'FizzBuzz'
+      else if (mod(i,3) == 0) then; print *, 'Fizz'
+      else if (mod(i,5) == 0) then; print *, 'Buzz'
+      else;                         print *, i
+      end if
+   end do
+end program fizzbuzz_if

Task/FizzBuzz/Go/fizzbuzz.go

@@ -0,0 +1,17 @@
+package main
+import "fmt"
+
+func main() {
+    for i := 1; i <= 100; i++ {
+        switch {
+        case (i%3==0) && (i%5==0):
+            fmt.Println("FizzBuzz")
+        case i%3==0:
+            fmt.Println("Fizz")
+        case i%5==0:
+            fmt.Println("Buzz")
+        default:
+            fmt.Println(i)
+        }
+    }
+}

Task/FizzBuzz/Haskell/fizzbuzz-2.hs

@@ -0,0 +1,5 @@
+main = mapM_ putStrLn $ take 100 fizzbuzz
+
+fizzbuzz = zipWith (\x y -> if null y then show x else y) [1..] fbs
+
+fbs = zipWith (++) (cycle ["","","Fizz"]) (cycle ["","","","","Buzz"])

Task/FizzBuzz/Haskell/fizzbuzz-3.hs

@@ -0,0 +1,12 @@
+import Control.Monad.State
+import Control.Monad.Trans
+import Control.Monad.Writer
+
+main = putStr $ execWriter $ mapM_ (flip execStateT True . fizzbuzz) [1..100]
+
+fizzbuzz :: Int -> StateT Bool (Writer String) ()
+fizzbuzz x = do
+ when (x `mod` 3 == 0) $ tell "Fizz" >> put False
+ when (x `mod` 5 == 0) $ tell "Buzz" >> put False
+ get >>= (flip when $ tell $ show x)
+ tell "\n"

Task/FizzBuzz/Haskell/fizzbuzz-4.hs

@@ -0,0 +1,6 @@
+fizzBuzz :: Int -> String
+fizzBuzz x
+    | x `mod` 5 == 0 && x `mod` 3 == 0 = "FizzBuzz"
+    | x `mod` 5 == 0 = "Buzz"
+    | x `mod` 3 == 0 = "Fizz"
+    | otherwise = show x

Task/FizzBuzz/Haskell/fizzbuzz.hs

@@ -0,0 +1,7 @@
+main = mapM_ (putStrLn . fizzbuzz) [1..100]
+
+fizzbuzz x
+    | x `mod` 15 == 0 = "FizzBuzz"
+    | x `mod`  3 == 0 = "Fizz"
+    | x `mod`  5 == 0 = "Buzz"
+    | otherwise = show x

Task/FizzBuzz/Java/fizzbuzz-2.java

@@ -0,0 +1,11 @@
+public class FizzBuzz{
+	public static void main(String[] args){
+		for(int i= 1; i <= 100; i++){
+			String output = "";
+			if(i % 3 == 0) output += "Fizz";
+			if(i % 5 == 0) output += "Buzz";
+			if(output.equals("")) output += i;
+			System.out.println(output);
+		}
+	}
+}

Task/FizzBuzz/Java/fizzbuzz-3.java

@@ -0,0 +1,8 @@
+public class FizzBuzz{
+	public static void main(String[] args){
+		for(int i= 1; i <= 100; i++){
+			System.out.println(i % 15 != 0 ? i % 5 != 0 ? i % 3 != 0 ?
+			i : "Fizz" : "Buzz" : "FizzBuzz");
+		}
+	}
+}

Task/FizzBuzz/Java/fizzbuzz-4.java

@@ -0,0 +1,12 @@
+public String fizzBuzz(int n){
+  String s = "";
+  if (n == 0)
+    return s;
+  if((n % 5) == 0)
+    s = "Buzz" + s;
+  if((n % 3) == 0)
+    s = "Fizz" + s;
+  if (s.equals(""))
+    s = n + "";
+  return fizzBuzz(n-1) +  s;
+}

Task/FizzBuzz/Java/fizzbuzz-5.java

@@ -0,0 +1,5 @@
+public String fizzBuzz(int n){
+  return (n>0) ? fizzBuzz(n-1) +
+    (n % 15 != 0? n % 5 != 0? n % 3 != 0? (n+"") :"Fizz" : "Buzz" : "FizzBuzz")
+               : "";
+}

Task/FizzBuzz/Java/fizzbuzz-6.java

@@ -0,0 +1,7 @@
+class FizzBuzz {
+  public static void main( String [] args ) {
+    for( int i = 1 ; i <= 100 ; i++ ) {
+      System.out.println( new String[]{ i+"", "Fizz", "Buzz", "FizzBuzz" }[ ( i%3==0?1:0 ) + ( i%5==0?2:0 ) ]);
+    }
+  }
+}

Task/FizzBuzz/Java/fizzbuzz.java

@@ -0,0 +1,15 @@
+public class FizzBuzz{
+	public static void main(String[] args){
+		for(int i= 1; i <= 100; i++){
+			if(i % 15 == 0){
+				System.out.println("FizzBuzz");
+			}else if(i % 3 == 0){
+				System.out.println("Fizz");
+			}else if(i % 5 == 0){
+				System.out.println("Buzz");
+			}else{
+				System.out.println(i);
+			}
+		}
+	}
+}

Task/FizzBuzz/JavaScript/fizzbuzz-2.js

@@ -0,0 +1 @@
+for (var i=1; i<=100; i++) console.log( (i % 3 === 0 ? 'Fizz' : '') + (i % 5 === 0 ? 'Buzz' : '') || i );

Task/FizzBuzz/JavaScript/fizzbuzz-3.js

@@ -0,0 +1 @@
+for(var i=1; i<=100; console.log((i%3?'':'Fizz')+(i%5?'':'Buzz')||i), i++);

Task/FizzBuzz/JavaScript/fizzbuzz-4.js

@@ -0,0 +1,8 @@
+(function() {
+  var i;
+
+  for (i = 1; i <= 100; i++) {
+    console.log([i % 3 === 0 ? 'Fizz' : void 0] + [i % 5 === 0 ? 'Buzz' : void 0] || i);
+  }
+
+}).call(this);

Task/FizzBuzz/JavaScript/fizzbuzz-5.js

@@ -0,0 +1,25 @@
+var divs = [15, 3, 5];
+var says = ['FizzBuzz', 'Fizz', 'Buzz'];
+
+function fizzBuzz(first, last) {
+    for (var n = first; n <= last; n++) {
+        print(getFizzBuzz(n));
+    }
+}
+
+function getFizzBuzz(n) {
+    var sayWhat = n;
+    for (var d = 0; d < divs.length; d++) {
+        if (isMultOf(n, divs[d])) {
+            sayWhat = says[d];
+            break;
+        }
+    }
+    return sayWhat;
+}
+
+function isMultOf(n, d) {
+    return n % d == 0;
+}
+
+fizzBuzz(1, 100);

Task/FizzBuzz/JavaScript/fizzbuzz.js

@@ -0,0 +1,32 @@
+for (var i = 1; i <= 100; i++) {
+  if (i % 15 == 0) {
+    console.log("FizzBuzz");
+  } else if (i % 3 == 0) {
+    console.log("Fizz");
+  } else if (i % 5 == 0) {
+    console.log("Buzz");
+  } else {
+    console.log(i);
+  }
+}
+
+// ------------------
+// functional version
+// ------------------
+(function (n) {
+     var r = [];
+
+     while (n--) {
+         r.push(n + 1);
+     }
+
+     return r.reverse();
+ })(100).map(function (n) {
+     return !(n % 15) ?
+         'FizzBuzz' :
+         !(n % 3) ?
+             'Fizz' :
+             !(n % 5) ?
+                 'Buzz' :
+                 n;
+ }).join('\r\n');

Task/FizzBuzz/Lua/fizzbuzz-2.lua

@@ -0,0 +1,13 @@
+for i = 1, 100 do
+	output = ""
+	if i % 3 == 0 then
+		output = output.."Fizz"
+	end
+	if i % 5 == 0 then
+		output = output.."Buzz"
+	end
+	if(output == "") then
+		output = output..i
+	end
+	print(output)
+end

Task/FizzBuzz/Lua/fizzbuzz-3.lua

@@ -0,0 +1,5 @@
+word = {"Fizz", "Buzz", "FizzBuzz"}
+
+for i = 1, 100 do
+        print(word[(i % 3 == 0 and 1 or 0) + (i % 5 == 0 and 2 or 0)] or i)
+end

Task/FizzBuzz/Lua/fizzbuzz.lua

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

Task/FizzBuzz/PHP/fizzbuzz-2.php

@@ -0,0 +1,17 @@
+<?php
+for ( $i = 1; $i <= 100; ++$i )
+{
+     $str = "";
+
+     if (!($i % 3 ) )
+          $str .= "Fizz";
+
+     if (!($i % 5 ) )
+          $str .= "Buzz";
+
+     if ( empty( $str ) )
+          $str = $i;
+
+     echo $str . "\n";
+}
+?>

Task/FizzBuzz/PHP/fizzbuzz-3.php

@@ -0,0 +1,3 @@
+<?php
+for($i = 1; $i <= 100 and print(($i % 15 ? $i % 5 ? $i % 3 ? $i : 'Fizz' : 'Buzz' : 'FizzBuzz') . "\n"); ++$i);
+?>

Task/FizzBuzz/PHP/fizzbuzz.php

@@ -0,0 +1,13 @@
+<?php
+for ($i = 1; $i <= 100; $i++)
+{
+    if (!($i % 15))
+        echo "FizzBuzz\n";
+    else if (!($i % 3))
+        echo "Fizz\n";
+    else if (!($i % 5))
+        echo "Buzz\n";
+    else
+        echo "$i\n";
+}
+?>

Task/FizzBuzz/PIR/fizzbuzz.pir

@@ -0,0 +1,34 @@
+.sub main :main
+  .local int f
+  .local int mf
+  .local int skipnum
+  f = 1
+LOOP:
+  if f > 100 goto DONE
+  skipnum = 0
+  mf = f % 3
+  if mf == 0 goto FIZZ
+FIZZRET:
+  mf = f % 5
+  if mf == 0 goto BUZZ
+BUZZRET:
+  if skipnum > 0 goto SKIPNUM
+  print f
+SKIPNUM:
+  print "\n"
+  inc f
+  goto LOOP
+  end
+FIZZ:
+  print "Fizz"
+  inc skipnum
+  goto FIZZRET
+  end
+BUZZ:
+  print "Buzz"
+  inc skipnum
+  goto BUZZRET
+  end
+DONE:
+  end
+.end

Task/FizzBuzz/Perl/fizzbuzz-2.pl

@@ -0,0 +1 @@
+print 'Fizz'x!($_ % 3) . 'Buzz'x!($_ % 5) || $_, "\n" for 1 .. 100;

Task/FizzBuzz/Perl/fizzbuzz-3.pl

@@ -0,0 +1 @@
+print+(Fizz)[$_%3].(Buzz)[$_%5]||$_,$/for 1..1e2

Task/FizzBuzz/Perl/fizzbuzz-4.pl

@@ -0,0 +1 @@
+map((Fizz)[$_%3].(Buzz)[$_%5]||$_,1..100);

Task/FizzBuzz/Perl/fizzbuzz.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use feature qw/say/;
+
+foreach my $i (1 .. 100) {
+    say + (0 == $i % 15) ? "FizzBuzz"
+        : (0 == $i % 3) ? "Fizz"
+        : (0 == $i % 5) ? "Buzz"
+        : $i
+        ;
+}

Task/FizzBuzz/PicoLisp/fizzbuzz-2.l

@@ -0,0 +1,7 @@
+(for N 100
+   (prinl
+      (cond
+         ((=0 (% N 15)) "FizzBuzz")
+         ((=0 (% N 3)) "Fizz")
+         ((=0 (% N 5)) "Buzz")
+         (T N) ) ) )

Task/FizzBuzz/PicoLisp/fizzbuzz.l

@@ -0,0 +1,3 @@
+(for N 100
+   (prinl
+      (or (pack (at (0 . 3) "Fizz") (at (0 . 5) "Buzz")) N) ) )

Task/FizzBuzz/Python/fizzbuzz-2.py

@@ -0,0 +1,3 @@
+for i in range(1, 101):
+    words = [word for n, word in ((3, 'Fizz'), (5, 'Buzz')) if not i % n]
+    print ''.join(words) or i

Task/FizzBuzz/Python/fizzbuzz-3.py

@@ -0,0 +1,4 @@
+print ('\n'.join(''.join(''.join(['' if i%3 else 'Fizz',
+                                  '' if i%5 else 'Buzz'])
+                         or str(i))
+                 for i in range(1,101)))

Task/FizzBuzz/Python/fizzbuzz-4.py

@@ -0,0 +1,2 @@
+for i in range(1, 101):
+  print 'Fizz'*(not(i%3))+'Buzz'*(not(i%5)) or i

Task/FizzBuzz/Python/fizzbuzz-5.py

@@ -0,0 +1,6 @@
+messages = [None, "Fizz", "Buzz", "FizzBuzz"]
+acc = 810092048
+for i in xrange(1, 101):
+    c = acc & 3
+    print messages[c] if c else i
+    acc = acc >> 2 | c << 28

Task/FizzBuzz/Python/fizzbuzz-6.py

@@ -0,0 +1,14 @@
+>>> ' '.join(''.join(''.join(['' if i%3 else 'F',
+                                      '' if i%5 else 'B'])
+                             or str('00'))
+                     for i in range(1,16))
+'00 00 F 00 B F 00 00 F B 00 F 00 00 FB'
+>>> _
+'00 00 F 00 B F 00 00 F B 00 F 00 00 FB'
+>>> _.replace('FB','11').replace('F','01').replace('B','10').split()[::-1]
+['11', '00', '00', '01', '00', '10', '01', '00', '00', '01', '10', '00', '01', '00', '00']
+>>> '0b' + ''.join(_)
+'0b110000010010010000011000010000'
+>>> eval(_)
+810092048
+>>>

Task/FizzBuzz/Python/fizzbuzz-7.py

@@ -0,0 +1,6 @@
+import random
+
+for i in range(0, 100):
+    if not i % 15:
+        random.seed(1178741599)
+    print [i+1, "Fizz", "Buzz", "FizzBuzz"][random.randint(0,3)]

Task/FizzBuzz/Python/fizzbuzz-8.py

@@ -0,0 +1,13 @@
+from itertools import cycle, izip, count, islice
+
+fizzes = cycle([""] * 2 + ["Fizz"])
+buzzes = cycle([""] * 4 + ["Buzz"])
+both = (f + b for f, b in izip(fizzes, buzzes))
+
+# if the string is "", yield the number
+# otherwise yield the string
+fizzbuzz = (word or n for word, n in izip(both, count(1)))
+
+# print the first 100
+for i in islice(fizzbuzz, 100):
+    print i

Task/FizzBuzz/Python/fizzbuzz.py

@@ -0,0 +1,9 @@
+for i in xrange(1, 101):
+    if i % 15 == 0:
+        print "FizzBuzz"
+    elif i % 3 == 0:
+        print "Fizz"
+    elif i % 5 == 0:
+        print "Buzz"
+    else:
+        print i

Task/FizzBuzz/REXX/fizzbuzz-2.rexx

@@ -0,0 +1,11 @@
+/*REXX program displays numbers  1 ──► 100  for the  FizzBuzz  problem. */
+
+  do n=1  for 100
+      select
+      when n//15==0  then say 'FizzBuzz'
+      when n//5 ==0  then say '    Buzz'
+      when n//3 ==0  then say '    Fizz'
+      otherwise           say right(n,8)
+      end   /*select*/
+  end       /*n*/
+                                       /*stick a fork in it, we're done.*/

Task/FizzBuzz/REXX/fizzbuzz-3.rexx

@@ -0,0 +1,8 @@
+/*REXX program displays numbers  1 ──► 100  for the  FizzBuzz  problem. */
+
+  do n=1  for 100;  _=
+  if n//3 ==0  then _= 'Fizz'
+  if n//5 ==0  then _=_'Buzz'
+  say right(word(_ n,1),8)
+  end   /*n*/
+                                       /*stick a fork in it, we're done.*/

Task/FizzBuzz/REXX/fizzbuzz.rexx

@@ -0,0 +1,9 @@
+/*REXX program displays numbers  1 ──► 100  for the  FizzBuzz  problem. */
+
+  do j=1  to 100;      z=j
+  if j//3    ==0  then z='Fizz'
+  if j//5    ==0  then z='Buzz'
+  if j//(3*5)==0  then z='FizzBuzz'
+  say right(z,8)
+  end   /*j*/
+                                       /*stick a fork in it, we're done.*/

Task/FizzBuzz/Ruby/fizzbuzz-2.rb

@@ -0,0 +1,11 @@
+1.upto(100) do |n|
+  if (n % 15).zero?
+    puts "FizzBuzz"
+  elsif (n % 5).zero?
+    puts "Buzz"
+  elsif (n % 3).zero?
+    puts "Fizz"
+  else
+    puts n
+  end
+end

Task/FizzBuzz/Ruby/fizzbuzz-3.rb

@@ -0,0 +1,4 @@
+(1..100).each do |n|
+  v = "#{"Fizz" if n % 3 == 0}#{"Buzz" if n % 5 == 0}"
+  puts v.empty? ? n : v
+end

Task/FizzBuzz/Ruby/fizzbuzz-4.rb

@@ -0,0 +1 @@
+1.upto(100) { |n| puts "#{'Fizz' if n % 3 == 0}#{'Buzz' if n % 5 == 0}#{n if n % 3 != 0 && n % 5 != 0}" }

Task/FizzBuzz/Ruby/fizzbuzz-5.rb

@@ -0,0 +1,7 @@
+1.upto 100 do |n|
+  r = ''
+  r << 'Fizz' if n % 3 == 0
+  r << 'Buzz' if n % 5 == 0
+  r << n.to_s if r.empty?
+  puts r
+end

Task/FizzBuzz/Ruby/fizzbuzz-6.rb

@@ -0,0 +1 @@
+1.upto(100) { |i| p "#{[:Fizz][i%3]}#{[:Buzz][i%5]}"[/.+/m] || i }

Task/FizzBuzz/Ruby/fizzbuzz-7.rb

@@ -0,0 +1,8 @@
+class Integer
+  def fizzbuzz
+    v = "#{"Fizz" if self % 3 == 0}#{"Buzz" if self % 5 == 0}"
+    v.empty? ? self : v
+  end
+end
+
+puts *(1..100).map(&:fizzbuzz)

Task/FizzBuzz/Ruby/fizzbuzz.rb

@@ -0,0 +1,6 @@
+1.upto(100) do |n|
+  print "Fizz" if a = (n % 3).zero?
+  print "Buzz" if b = (n % 5).zero?
+  print n unless (a || b)
+  print "\n"
+end

Task/FizzBuzz/SNUSP/fizzbuzz.snusp

@@ -0,0 +1,35 @@
+        /               'B' @=@@=@@++++#
+       // /             'u' @@@@@=@+++++#
+      // // /           'z' @=@@@@+@++++#
+     // // // /         'i' @@@@@@=+++++#
+    // // // // /       'F' @@@=@@+++++#
+   // // // // // /      LF  ++++++++++#
+  // // // // // // /   100 @@@=@@@=++++#
+$@/>@/>@/>@/>@/>@/>@/\   0
+/                    /
+!                             /======= Fizz <<<.<.<..>>>#
+/                             |      \
+\?!#->+ @\.>?!#->+ @\.>?!#->+@/.>\   |
+/        !          !         !  /   |
+\?!#->+ @\.>?!#->+@\ .>?!#->+@/.>\   |
+/        !         \!===\!    !  /   |
+\?!#->+ @\.>?!#->+ @\.>?!#->+@/.>\   |
+/        !          !   |     !  /   |
+\?!#->+@\ .>?!#->+ @\.>?!#->+@/.>\   |
+/       \!==========!===\!    !  /   |
+\?!#->+ @\.>?!#->+ @\.>?!#->+@/>>@\.>/
+         !          |   |         |
+         /==========/   \========!\=== Buzz <<<<<<<.>.>..>>>#
+         |
+         \!/=dup==?\>>@\<!/back?\<<<#
+           \<<+>+>-/   |  \>+<- /
+                       |
+/======================/
+|
+|       /recurse\    #/?\ zero
+\print=!\@\>?!\@/<@\.!\-/
+          |   \=/  \=itoa=@@@+@+++++#
+          !     /+ !/+ !/+ !/+   \    mod10
+          /<+> -\!?-\!?-\!?-\!?-\!
+          \?!\-?!\-?!\-?!\-?!\-?/\    div10
+             #  +/! +/! +/! +/! +/

Task/FizzBuzz/Scala/fizzbuzz-2.scala

@@ -0,0 +1,6 @@
+(1 to 100) map ( x => (x % 3, x % 5) match{
+    case (0,0) => "FizzBuzz"
+    case (0,_) => "Fizz"
+    case (_,0) => "Buzz"
+    case _ => x
+}) foreach println

Task/FizzBuzz/Scala/fizzbuzz-3.scala

@@ -0,0 +1,8 @@
+def replaceMultiples(x: Int, rs: (Int, String)*) =
+  rs map {case (n, s) => Either cond (x % n == 0, s, x)} reduceLeft ((a, b) =>
+    a fold ((_ => b), (s => b fold ((_ => a), (t => Right(s + t))))))
+
+def fizzbuzz(n: Int) =
+  replaceMultiples(n, 3 -> "Fizz", 5 -> "Buzz") fold ((_ toString), identity)
+
+1 to 100 map fizzbuzz foreach println

Task/FizzBuzz/Scala/fizzbuzz-4.scala

@@ -0,0 +1,2 @@
+def f(a:Int,b:Int,c:String, d:String):String = if(a % b == 0) c else d
+for(i <- 1 to 100) println(f(i,15,"FizzBuzz", f(i,3,"Fizz", f(i,5,"Buzz", i.toString))))

Task/FizzBuzz/Scala/fizzbuzz.scala

@@ -0,0 +1,6 @@
+(1 to 100) foreach {
+    case x if (x % 15 == 0) => println("FizzBuzz")
+    case x if (x % 3 == 0) => println("Fizz")
+    case x if (x % 5 == 0) => println("Buzz")
+    case x => println(x)
+}

Task/FizzBuzz/Tcl/fizzbuzz-2.tcl

@@ -0,0 +1,4 @@
+while {[incr i] < 101} {
+    set fb [if {$i % 3 == 0} {list Fizz}][if {$i % 5 == 0} {list Buzz}]
+    if {$fb ne ""} {puts $fb} {puts $i}
+}

Task/FizzBuzz/Tcl/fizzbuzz.tcl

@@ -0,0 +1,9 @@
+proc fizzbuzz {n {m1 3} {m2 5}} {
+    for {set i 1} {$i <= $n} {incr i} {
+        set ans ""
+        if {$i % $m1 == 0} {append ans Fizz}
+        if {$i % $m2 == 0} {append ans Buzz}
+        puts [expr {$ans eq "" ? $i : $ans}]
+    }
+}
+fizzbuzz 100

Task/FizzBuzz/Turing/fizzbuzz.turing

@@ -0,0 +1,13 @@
+setscreen("nocursor,noecho")
+
+for i : 1 .. 100
+    if i mod 15 = 0 then
+        put "Fizzbuzz" ..
+    elsif i mod 5 = 0 then
+        put "Buzz" ..
+    elsif i mod 3 = 0 then
+        put "Fizz" ..
+    else
+        put i ..
+    end if
+end for