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

8 lines
171 B
Text

loop j=1 for 100
select
when j//15==0 then say 'FizzBuzz'
when j//5==0 then say 'Buzz'
when j//3==0 then say 'Fizz'
otherwise say j.right(4)
end
end