RosettaCodeData/Task/FizzBuzz/Factor/fizzbuzz-1.factor

3 lines
146 B
Factor

USE: math.parser
1 101 [ [ 3 5 [ mod 0 = ] bi-curry@ bi "Fizz" "Buzz" swapd [ and ] 2bi@ append ] keep number>string or print ] each-integer-from