RosettaCodeData/Task/FizzBuzz/GAP/fizzbuzz.gap

15 lines
249 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
FizzBuzz := function()
local i;
for i in [1 .. 100] do
if RemInt(i, 15) = 0 then
Print("FizzBuzz\n");
elif RemInt(i, 3) = 0 then
Print("Fizz\n");
elif RemInt(i, 5) = 0 then
Print("Buzz\n");
else
Print(i, "\n");
fi;
od;
end;