;# FizzBuzz Test
;# <http://www.codinghorror.com/blog/archives/000781.html>
;# <http://www.aoky.net/articles/jeff_atwood/why_cant_programmers_program.htm>
;# <http://golf.shinh.org/p.rb?FizzBuzz>
;# -*- coding: CP932 -*-
;# charset="CP932";
;# encoding="CP932";

#!/usr/bin/env abc
# ABC <http://en.wikipedia.org/wiki/ABC_(programming_language)>
# ABC <http://homepages.cwi.nl/%7Esteven/abc/>
# <http://www2.airnet.ne.jp/sardine/complang/ABC.html>
FOR i IN {1..100}:
	IF i MOD 3 = 0:
		WRITE "Fizz"
	IF i MOD 5 = 0:
		WRITE "Buzz"
	IF (i MOD 3) * (i MOD 5) > 0:
		WRITE i
	WRITE /

#!/usr/bin/awk -f
# AWK <http://en.wikipedia.org/wiki/AWK>
# Awk.Info <http://awk.info/>
# One True AWK (nawk) <http://www.cs.princeton.edu/~bwk/btl.mirror/>
# GNU AWK (gawk) <http://www.gnu.org/software/gawk/gawk.html>
BEGIN {
	for (i = 1; i <= 100; i++)
		print (z = (i % 3 ? "" : "Fizz")(i % 5 ? "" : "Buzz")) ? z : i;
}

#!/usr/bin/env basic
'' N88-BASIC <http://ja.wikipedia.org/wiki/N88-BASIC>
10 FOR I = 1 TO 100 : F = I MOD 3 : B = I MOD 5
20 	IF F = 0 THEN PRINT "Fizz";
30 	IF B = 0 THEN PRINT "Buzz";
40 	IF F * B > 0 THEN PRINT I;
50 	PRINT,
60 NEXT
70 PRINT

#!/usr/bin/env basic
'' BASIC <http://en.wikipedia.org/wiki/BASIC>
'' Chipmunk Basic <http://www.nicholson.com/rhn/basic/>
for i = 1 to 100 : f = i mod 3 : b = i mod 5
	if f = 0 then print "Fizz";
	if b = 0 then print "Buzz";
	if f * b > 0 then print i;
	print,
next
print
quit

#!/usr/bin/env bwbasic
'' Bywater BASIC Interpreter <http://sourceforge.net/projects/bwbasic/>
for i = 1 to 100 : f = i mod 3 : b = i mod 5
	if f = 0 then print "Fizz";
	if b = 0 then print "Buzz";
	if f * b > 0 then print i;
	print
next
quit

#!/usr/bin/env yabasic
'' Yet another Basic <http://yabasic.de/>
for i = 1 to 100 : f = mod(i, 3) : b = mod(i, 5)
	if f = 0 print "Fizz";
	if b = 0 print "Buzz";
	if f * b > 0 print i;
	print
next

#!/usr/bin/env ferite
// Ferite <http://en.wikipedia.org/wiki/Ferite>
// Ferite <http://ferite.org/>
uses "console";
for (number i = 1; i <= 100; i++) {
	i % 3 * i % 5 and Console.print(i);
	i % 3 or Console.print("Fizz");
	i % 5 or Console.print("Buzz");
	Console.println("");
}

#!/usr/bin/env forth
\ Forth <http://en.wikipedia.org/wiki/Forth_(programming_language)>
\ Forth <http://ja.wikipedia.org/wiki/Forth>
\ <http://d.hatena.ne.jp/nyanonon/20070510#p1>
101 1 DO i . i 3 MOD 0 = IF ." Fizz" THEN i 5 MOD 0 = IF ." Buzz" THEN LOOP

#!/usr/bin/env icon
# Icon <http://en.wikipedia.org/wiki/Icon_(programming_language)>
# Icon <http://www.cs.arizona.edu/icon/>
procedure main()
	local i, z
	every i := 1 to 100 do {
		z := ""
		i % 3 = 0 & z ||:= "Fizz"
		i % 5 = 0 & z ||:= "Buzz"
		*z = 0 & z := i
		write(z)
	}
end
exit()

#!/usr/bin/env js
// JavaScript <http://en.wikipedia.org/wiki/JavaScript>
// spidermonkey <http://developer.mozilla.org/ja/docs/SpiderMonkey>
for (var i = 1; i <= 100; i++)
	print((i % 3 ? "" : "Fizz") + (i % 5 ? "" : "Buzz") || i);
quit();

#!/usr/bin/env lua
-- Lua <http://en.wikipedia.org/wiki/Lua_(programming_language)>
-- Lua <http://www.lua.org/>
for i = 1, 100 do
	z = (i % 3 ~= 0 and "" or "Fizz") .. (i % 5 ~= 0 and "" or "Buzz")
	print(z ~= "" and z or i)
end
os.exit()

#!/usr/bin/env perl
# Perl <http://en.wikipedia.org/wiki/Perl>
# Perl <http://www.perl.org/>
($\, $,) = ($/, ",");
print map { ("Fizz")[$_ % 3] . ("Buzz")[$_ % 5] or $_ } 1 .. 100;
__END__

#!/usr/bin/env python
# Python <http://en.wikipedia.org/wiki/Python_(programming_language)>
# Python <http://python.org/>
# <http://python.rdy.jp/wiki.cgi?page=FizzBuzz>
print [i % 3 / 2 * "Fizz" + i % 5 / 4 * "Buzz" or -~i for i in range(100)]
# <http://foma-zakki.cocolog-nifty.com/zakki/2007/05/python_fizzbuzz_ed8f.html>
print ["Fizz" * (i % 3 < 1) + "Buzz" * (i % 5 < 1) or i for i in range(1, 101)]
# <http://d.hatena.ne.jp/love0hate/20111008>
print ["FizzBuzz"[(i % 3 > 0) * 4:(i % 5 < 1) * 4 + 4] or i for i in range(1, 101)]
import sys
sys.exit()

#!/usr/bin/env tclsh
# Tcl <http://en.wikipedia.org/wiki/Tcl>
# Tcl/Tk <http://tcl.tk/>
for {set i 1} {$i <= 100} {incr i} {
	if {$i % 3 == 0} { puts -nonewline {Fizz} }
	if {$i % 5 == 0} { puts -nonewline {Buzz} }
	if {$i % 3 * $i % 5 > 0} { puts -nonewline $i }
	puts {}
}

#!/bin/sh
gcc <<EOL -o fizzbuzz; ./fizzbuzz
/*
 * C <http://en.wikipedia.org/wiki/C_(programming_language)>
 * GCC <http://gcc.gnu.org/>
 * MPW C <http://developer.apple.com/tools/mpw-tools/>
 * Metrowerks CodeWarrior C <http://en.wikipedia.org/wiki/Metrowerks>
 */
main()
{
	int	i;
	for (i = 1; i <= 100; i++)
		printf(printf("%s%s", i % 3 ? "" : "Fizz", i % 5 ? "" : "Buzz") ? "\n" : "%d\n", i);
}
EOL

#!/bin/sh
gpc <<EOL -o fizzbuzz; ./fizzbuzz
{
(* Pascal <http://en.wikipedia.org/wiki/Pascal_(programming_language)> *)
(* Free Pascal <http://freepascal.org/> <http://sf.net/projects/freepascal/> *)
(* GNU Pascal Compiler <http://gnu-pascal.de/> *)
(* MPW Pascal <http://developer.apple.com/tools/mpw-tools/> *)
(* Metrowerks CodeWarrior Pascal <http://en.wikipedia.org/wiki/Metrowerks> *)
(* Think Pascal 4.5 <http://www.think-pascal.org/> *)
}
program FizzBuzz (input, output);
var
	i : integer;
begin
	for i := 1 to 100 do
	begin
		if (i mod 3 = 0) then
			write('Fizz');
		if (i mod 5 = 0) then
			write('Buzz');
		if (i mod 3) * (i mod 5) > 0 then
			write(i : 1);
		writeln;
	end;
end.
EOL

# Shell Script <http://en.wikipedia.org/wiki/Shell_script>

#!/bin/dash
# Almquist Shell <https://ja.wikipedia.org/wiki/Almquist_Shell>
# Debian Almquist shell <https://ja.wikipedia.org/wiki/Debian_Almquist_shell>
for i in $(jot 100); # or seq
do
	[ $(($i % 3)) -eq 0 ] && echo -n Fizz;
	[ $(($i % 5)) -eq 0 ] && echo -n Buzz;
	[ $(($i % 3)) -ne 0 -a $(($i % 5)) -ne 0 ] && echo -n $i;
echo;
done

#!/bin/bash
# Bourne Shell <http://en.wikipedia.org/wiki/Bourne_Shell>
# Bourne Again Shell <http://en.wikipedia.org/wiki/Bash>
for (( i = 1; i <= 100; i++ ));
do
	[ $[$i % 3] -eq 0 ] && echo -n Fizz;
	[ $[$i % 5] -eq 0 ] && echo -n Buzz;
	[ $[$i % 3] -ne 0 -a $[$i % 5] -ne 0 ] && echo -n $i;
	echo;
done

#!/bin/zsh
# Z shell <http://en.wikipedia.org/wiki/Zsh>
for i in {1..100};
do
	echo -n $i "\r"; # <http://oku.edu.mie-u.ac.jp/%7Eokumura/blog/node/1531>
	[ $[$i % 3] -eq 0 ] && echo -n Fizz;
	[ $[$i % 5] -eq 0 ] && echo -n Buzz;
	echo;
done

#!/bin/sh
# Whitespace <http://en.wikipedia.org/wiki/Whitespace_(programming_language)>
# Whitespace <http://compsoc.dur.ac.uk/whitespace/>
# <http://d.hatena.ne.jp/etsav/20070518#1179507015>
# <http://return0.info/note/2011-04-01_1.e>
tr 'TSL' '\t \n' <<EOL >fizzbuzz.ws; wspace fizzbuzz.ws
SSSTLLSSSSLSLSSLSSSSTSTLTSTTSLTSSSTTLTSTTSLSLTSSSSLLSSSTLSLTLTSSTSLLTSTS
SLSTLSTLSSTSLSSSTSSSSSLTLSSSSSTLTSSSSLSSSSTTSSTSTLTSSTLTTSSLSLLLLLLSSSSS
SSSTTSTSSTLSSSTSSSTTSLLSTTSSLLSLSTLLSSSTSLSSSTTTSTSTLSSSTSSSSTSLLSTTSSLS
LLSLTSLLSSTSSLTLSSTLSSSSSTTTTSTSLSLSTLSSTLSSLT
EOL

#!/usr/bin/osascript
(*
-- AppleScript <http://en.wikipedia.org/wiki/Applescript>
-- AppleScript <http://www.apple.com/applescript/>
*)
{} returning fizzbuzz
repeat with i from 1 to 100
	{i mod 3 = 0, i mod 5 = 0, ""} returning {x, y, fizzbuzz's end}
	tell fizzbuzz
		if x then "Fizz" returning item i
		if y then item i & "Buzz" returning item i
		if item i is "" then i returning item i
	end tell
end repeat
fizzbuzz -- implicit(ˆÃ–Ù‚Ì) get

/bin/sh exit;

-- HyperCard <http://en.wikipedia.org/wiki/HyperCard>
-- HyperCard <http://www.info.apple.com/kbnum/n24522>
======================================================================
 the stack script of "FizzBuzz" as HyperTalk
======================================================================
function fizzBuzz _
  repeat with i = 1 to 100
    get item (i mod 3 + 1) of "Fizz" & item (i mod 5 + 1) of "Buzz"
    if it is empty then get i
    put it into item i of _
  end repeat
  return _
end fizzBuzz

on openStack
  if there is not a cd fld 1 then doMenu "New Field"
  set the rect of cd fld 1 to 0,0,the width of cd window,the height of cd window
  set the fixedLineHeight of cd fld 1 to true
  set the textFont of cd fld 1 to 3 -- "Geneva"
  choose tool 1
  put fizzBuzz() into cd fld 1
end openStack

on closeStack
  if there is a cd fld 1 then put empty into cd fld 1
  -- if the freeSize of this stack > 0 then doMenu "Compact Stack"
end closeStack