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

13 lines
237 B
Text

lvars str;
for i from 1 to 100 do
if i rem 15 = 0 then
'FizzBuzz' -> str;
elseif i rem 3 = 0 then
'Fizz' -> str;
elseif i rem 5 = 0 then
'Buzz' -> str;
else
'' >< i -> str;
endif;
printf(str, '%s\n');
endfor;