10 lines
242 B
Text
10 lines
242 B
Text
program fizzbuzz;
|
|
loop for n in [1..100] do
|
|
print(fizzbuzz(n));
|
|
end loop;
|
|
|
|
proc fizzbuzz(n);
|
|
divs := [[3, "Fizz"], [5, "Buzz"]];
|
|
return +/[w : [d,w] in divs | n mod d=0] ? str n;
|
|
end proc;
|
|
end program;
|