forthで書いたFizzBuzz

説明

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

[戻る]
inserted by FC2 system