blob: c96563f919afe2af3c647b8284916e82cafac1b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
1
WHILE 101 OVER < DO
3 OVER /% SWAP DROP
OVER 5 SWAP /% SWAP DROP
IF 0 ==
DO
IF 0 == DO "Fizzbuzz" ELSE "Buzz" END
ELSE
IF 0 == DO "Fizz" ELSE DUP END
END
. 1 +
END
|