new files

Task/FizzBuzz/ACL2/fizzbuzz.acl2

@@ -0,0 +1,12 @@
+(defun fizzbuzz-r (i)
+   (declare (xargs :measure (nfix (- 100 i))))
+   (prog2$
+    (cond ((= (mod i 15) 0) (cw "FizzBuzz~%"))
+          ((= (mod i 5) 0) (cw "Buzz~%"))
+          ((= (mod i 3) 0) (cw "Fizz~%"))
+          (t (cw "~x0~%" i)))
+    (if (zp (- 100 i))
+        nil
+        (fizzbuzz-r (1+ i)))))
+
+(defun fizzbuzz () (fizzbuzz-r 1))

Task/FizzBuzz/AWK/fizzbuzz-1.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/Ada/fizzbuzz.ada

@@ -0,0 +1,16 @@
+with Ada.Text_IO; use Ada.Text_IO;
+
+procedure Fizzbuzz is
+begin
+   for I in 1..100 loop
+      if I mod 15 = 0 then
+         Put_Line("FizzBuzz");
+      elsif I mod 5 = 0 then
+         Put_Line("Buzz");
+      elsif I mod 3 = 0 then
+         Put_Line("Fizz");
+      else
+         Put_Line(Integer'Image(I));
+      end if;
+   end loop;
+end Fizzbuzz;

Task/FizzBuzz/BASIC/fizzbuzz-1.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/C/fizzbuzz-1.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-1.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-1.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/Forth/fizzbuzz-1.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-1.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/Haskell/fizzbuzz-1.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-1.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-1.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-1.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-1.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/Perl/fizzbuzz-1.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-1.l

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

Task/FizzBuzz/Prolog/fizzbuzz-1.pro

@@ -0,0 +1,13 @@
+fizzbuzz :-
+        foreach(between(1, 100, X), print_item(X)).
+
+print_item(X) :-
+        (  0 is X mod 15
+        -> print('FizzBuzz')
+        ;  0 is X mod 3
+        -> print('Fizz')
+        ;  0 is X mod 5
+        -> print('Buzz')
+        ;  print(X)
+        ),
+        nl.

Task/FizzBuzz/Python/fizzbuzz-1.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/R/fizzbuzz-1.r

@@ -0,0 +1,6 @@
+x <- 1:100
+xx <- as.character(x)
+xx[x%%3==0] <- "Fizz"
+xx[x%%5==0] <- "Buzz"
+xx[x%%15==0] <- "FizzBuzz"
+xx

Task/FizzBuzz/REXX/fizzbuzz-1.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-1.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/Scala/fizzbuzz-1.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/Smalltalk/fizzbuzz-1.st

@@ -0,0 +1,9 @@
+Integer extend [
+    fizzbuzz [
+        | fb |
+        fb := '%<Fizz|>1%<Buzz|>2' % {
+            self \\ 3 == 0.  self \\ 5 == 0 }.
+        ^fb isEmpty ifTrue: [ self ] ifFalse: [ fb ]
+    ]
+]
+1 to: 100 do: [ :i | i fizzbuzz displayNl ]

Task/FizzBuzz/Tcl/fizzbuzz-1.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