March 2014 update

Task/FizzBuzz/Batch-File/fizzbuzz-1.bat

@@ -3,22 +3,22 @@ for /L %%i in (1,1,100) do call :tester %%i
 goto :eof
 
 :tester
-set /a test = %1 %% 15
-if %test% NEQ 0 goto :NotFizzBuzz
-echo FizzBuzz
-goto :eof
+  set /a test = %1 %% 15
+  if %test% NEQ 0 goto :NotFizzBuzz
+  echo FizzBuzz
+  goto :eof
 
 :NotFizzBuzz
-set /a test = %1 %% 5
-if %test% NEQ 0 goto :NotBuzz
-echo Buzz
-goto :eof
+  set /a test = %1 %% 5
+  if %test% NEQ 0 goto :NotBuzz
+  echo Buzz
+  goto :eof
 
 :NotBuzz
-set /a test = %1 %% 3
-if %test% NEQ 0 goto :NotFizz
-echo Fizz
-goto :eof
+  set /a test = %1 %% 3
+  if %test% NEQ 0 goto :NotFizz
+  echo Fizz
+  goto :eof
 
 :NotFizz
-echo %1
+  echo %1

Task/FizzBuzz/Batch-File/fizzbuzz-2.bat

@@ -1,28 +1,29 @@
 @echo off
 set n=1
+
 :loop
-call :tester %n%
-set /a n += 1
-if %n% LSS 101 goto loop
-goto :eof
+  call :tester %n%
+  set /a n += 1
+  if %n% LSS 101 goto loop
+  goto :eof
 
 :tester
-set /a test = %1 %% 15
-if %test% NEQ 0 goto :NotFizzBuzz
-echo FizzBuzz
-goto :eof
+  set /a test = %1 %% 15
+  if %test% NEQ 0 goto :NotFizzBuzz
+  echo FizzBuzz
+  goto :eof
 
 :NotFizzBuzz
-set /a test = %1 %% 5
-if %test% NEQ 0 goto :NotBuzz
-echo Buzz
-goto :eof
+  set /a test = %1 %% 5
+  if %test% NEQ 0 goto :NotBuzz
+  echo Buzz
+  goto :eof
 
 :NotBuzz
-set /a test = %1 %% 3
-if %test% NEQ 0 goto :NotFizz
-echo Fizz
-goto :eof
+  set /a test = %1 %% 3
+  if %test% NEQ 0 goto :NotFizz
+  echo Fizz
+  goto :eof
 
 :NotFizz
-echo %1
+  echo %1

Task/FizzBuzz/Batch-File/fizzbuzz-3.bat

@@ -0,0 +1,10 @@
+@echo off & setlocal enabledelayedexpansion
+for /l %%i in (1,1,100) do (
+  set /a m5=%%i %% 5
+  set /a m3=%%i %% 3
+  set s=
+  if !m5! equ 0 set s=!s!Fizz
+  if !m3! equ 0 set s=!s!Buzz
+  if "!s!"=="" set s=%%i
+  echo !s!
+)

Task/FizzBuzz/JavaScript/fizzbuzz-1.js

@@ -10,23 +10,12 @@ for (var i = 1; i <= 100; 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');
+Array.apply(null, { length: 100 }).map(function(n, i) {
+  ++i;
+  return !(i % 15) ?
+    "FizzBuzz" :
+    !(i % 3) ?
+      "Fizz" :
+      !(i % 5) ?
+        "Buzz" : i;
+}).join("\r\n");

Task/FizzBuzz/Julia/fizzbuzz-3.julia

@@ -0,0 +1,4 @@
+fb(i::Int) = "Fizz" ^ (i%3==0) *
+             "Buzz" ^ (i%5==0) *
+             string(i) ^ (i%3!=0 && i%5!=0)
+[println(fb(i)) for i = 1:100];

Task/FizzBuzz/LaTeX/fizzbuzz.tex

@@ -0,0 +1,22 @@
+\documentclass{minimal}
+\usepackage{ifthen}
+\usepackage{intcalc}
+
+\newcounter{mycount}
+\newboolean{fizzOrBuzz}
+
+\newcommand\fizzBuzz[1]{%
+\setcounter{mycount}{1}\whiledo{\value{mycount}<#1}
+    {
+	\setboolean{fizzOrBuzz}{false}
+	\ifthenelse{\equal{\intcalcMod{\themycount}{3}}{0}}{\setboolean{fizzOrBuzz}{true}Fizz}{}
+	\ifthenelse{\equal{\intcalcMod{\themycount}{5}}{0}}{\setboolean{fizzOrBuzz}{true}Buzz}{}
+	\ifthenelse{\boolean{fizzOrBuzz}}{}{\themycount}
+	\stepcounter{mycount}
+	\\
+    }
+}
+
+\begin{document}
+    \fizzBuzz{101}
+\end{document}

Task/FizzBuzz/Perl/fizzbuzz-1.pl

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

Task/FizzBuzz/Perl/fizzbuzz-5.pl

@@ -0,0 +1,5 @@
+use feature "say";
+
+@a = ("FizzBuzz", 0, 0, "Fizz", 0, "Buzz", "Fizz", 0, 0, "Fizz", "Buzz", 0, "Fizz");
+
+say $a[$_ % 15] || $_ for 1..100;

Task/FizzBuzz/Ruby/fizzbuzz-3.rb

@@ -1,4 +1,92 @@
-(1..100).each do |n|
-  v = "#{"Fizz" if n % 3 == 0}#{"Buzz" if n % 5 == 0}"
-  puts v.empty? ? n : v
+class Enumerator::Lazy
+  def filter_map
+    Lazy.new(self) do |holder, *values|
+      result = yield *values
+      holder << result if result
+    end
+  end
+end
+
+class Fizz
+  def initialize(head, tail)
+    @list = (head..Float::INFINITY).lazy.filter_map{|i| i if i % 3 == 0}.first(tail)
+  end
+
+  def fizz?(num)
+    search = @list
+    search.include?(num)
+  end
+
+  def drop(num)
+    list = @list
+    list.delete(num)
+  end
+
+  def to_a
+    @list.to_a
+  end
+end
+
+class Buzz
+  def initialize(head, tail)
+    @list = (head..Float::INFINITY).lazy.filter_map{|i| i if i % 5 == 0}.first(tail)
+  end
+
+  def buzz?(num)
+    search = @list
+    search.include?(num)
+  end
+
+  def drop(num)
+    list = @list
+    list.delete(num)
+  end
+
+  def to_a
+    @list.to_a
+  end
+end
+
+class FizzBuzz
+  def initialize(head, tail)
+    @list = (head..Float::INFINITY).lazy.filter_map{|i| i if i % 15 == 0}.first(tail)
+  end
+
+  def fizzbuzz?(num)
+    search = @list
+    search.include?(num)
+  end
+
+  def to_a
+    @list.to_a
+  end
+
+  def drop(num)
+    list = @list
+    list.delete(num)
+  end
+end
+stopper = 100
+@fizz = Fizz.new(1,100)
+@buzz = Buzz.new(1,100)
+@fizzbuzz = FizzBuzz.new(1,100)
+def min(v, n)
+  if v == 1
+    puts "Fizz: #{n}"
+    @fizz::drop(n)
+  elsif v == 2
+    puts "Buzz: #{n}"
+    @buzz::drop(n)
+  else
+    puts "FizzBuzz: #{n}"
+    @fizzbuzz::drop(n)
+  end
+end
+(@fizz.to_a & @fizzbuzz.to_a).map{|d| @fizz::drop(d)}
+(@buzz.to_a & @fizzbuzz.to_a).map{|d| @buzz::drop(d)}
+while @fizz.to_a.min < stopper or @buzz.to_a.min < stopper or @fizzbuzz.to_a.min < stopper
+  f, b, fb = @fizz.to_a.min, @buzz.to_a.min, @fizzbuzz.to_a.min
+  min(1,f)  if f < fb and f < b
+  min(2,b)  if b < f and b < fb
+  min(0,fb) if fb < b and fb < f
 end

Task/FizzBuzz/Ruby/fizzbuzz-4.rb

@@ -1 +1,4 @@
-1.upto(100) { |n| puts "#{'Fizz' if n % 3 == 0}#{'Buzz' if n % 5 == 0}#{n if n % 3 != 0 && n % 5 != 0}" }
+(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-5.rb

@@ -1,7 +1 @@
-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
+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-6.rb

@@ -1 +1,7 @@
-1.upto(100) { |i| p "#{[:Fizz][i%3]}#{[:Buzz][i%5]}"[/.+/m] || i }
+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-7.rb

@@ -1,8 +1 @@
-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)
+1.upto(100) { |i| p "#{[:Fizz][i%3]}#{[:Buzz][i%5]}"[/.+/m] || i }

Task/FizzBuzz/Ruby/fizzbuzz-8.rb

@@ -1,8 +1,8 @@
-fizzbuzz = ->(i) do
-  (i%15).zero? and next "FizzBuzz"
-  (i%3).zero?  and next "Fizz"
-  (i%5).zero?  and next "Buzz"
-  i
+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).join("\n")
+puts *(1..100).map(&:fizzbuzz)

Task/FizzBuzz/Ruby/fizzbuzz-9.rb

@@ -0,0 +1,8 @@
+fizzbuzz = ->(i) do
+  (i%15).zero? and next "FizzBuzz"
+  (i%3).zero?  and next "Fizz"
+  (i%5).zero?  and next "Buzz"
+  i
+end
+
+puts (1..100).map(&fizzbuzz).join("\n")

Task/FizzBuzz/Sed/fizzbuzz-2.sed

@@ -0,0 +1 @@
+seq 1 100 | sed -r '3~3 s/[0-9]*/Fizz/; 5~5 s/[0-9]*$/Buzz/'

Task/FizzBuzz/TXR/fizzbuzz.txr

@@ -0,0 +1 @@
+$ txr -p "(mapcar (op if @1 @1 @2) (repeat '(nil nil fizz nil buzz fizz nil nil fizz buzz nil fizz nil nil fizzbuzz)) (range 1 100))"

Task/FizzBuzz/Tcl/fizzbuzz-3.tcl

@@ -0,0 +1,5 @@
+set f [lrepeat 5 "Fizz" {$i} {$i}]
+foreach i {5 10} {lset f $i "Buzz"};lset f 0 "FizzBuzz"
+for {set i 1} {$i <= 100} {incr i} {
+    puts [subst [lindex [set f [list {*}[lassign $f ff] $ff]] 0]]
+}