RosettaCodeData/Task/FizzBuzz/REBOL/fizzbuzz-4.rebol
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
190 B
Text

m: func [i d] [0 = mod i d]
spick: func [t x y][either any [not t "" = t][y][x]]
zz: func [i] [rejoin [spick m i 3 "Fizz" "" spick m i 5 "Buzz" ""]]
repeat i 100 [print spick z: zz i z i]