14 lines
280 B
Text
14 lines
280 B
Text
class MAIN is
|
|
main is
|
|
loop i ::= 1.upto!(100);
|
|
s:STR := "";
|
|
if i % 3 = 0 then s := "Fizz"; end;
|
|
if i % 5 = 0 then s := s + "Buzz"; end;
|
|
if s.length > 0 then
|
|
#OUT + s + "\n";
|
|
else
|
|
#OUT + i + "\n";
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|