forthで書いたFizzBuzzです。これはAnarchy Golf向けに作ったもの。投稿するときには改行を無くしてバイト数を削っています。
Gforth 0.7.0, Copyright (C) 1995-2008 Free Software Foundation, Inc.
mbp13:~ takesita$ gforth 101.for 1 2 Fizz 4 Buzz Fizz 7 8 Fizz Buzz 11 Fizz 13 14 FizzBuzz 16 17 Fizz 19 Buzz Fizz 22 . . . 89 FizzBuzz 91 92 Fizz 94 Buzz Fizz 97 98 Fizz Buzz
: z
1 DO
i 5 mod 0=
i 3 mod 0=
2dup or 0=
if i 1 .r then
if ." Fizz" then
if ." Buzz" then
cr
LOOP ;
101 z