8 lines
193 B
Text
8 lines
193 B
Text
fizzbuzz3 := proc(n) local r;
|
|
r:=map2(modp,n,[3,5]);
|
|
if r=[0,0] then "FizzBuzz"
|
|
elif r[1]=0 then "Fizz"
|
|
elif r[2]=0 then "Buzz"
|
|
else n fi;
|
|
end proc:
|
|
for i to 100 do fizzbuzz3(i); od;
|