RosettaCodeData/Task/FizzBuzz/Joy/fizzbuzz.joy
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

2 lines
145 B
Text

DEFINE one == [[[dup 15 rem 0 =] "FizzBuzz"] [[dup 3 rem 0 =] "Fizz"] [[dup 5 rem 0 =] "Buzz"] [dup]] cond.
1 [100 <=] [dup one put succ] while.