5 lines
182 B
Text
5 lines
182 B
Text
# idiomatic modulo tester, 1st alternative
|
|
procedure main()
|
|
every i := 1 to 100 do
|
|
write((i % 15 = 0 & "FizzBuzz") | (i % 5 = 0 & "Buzz") | (i % 3 = 0 & "Fizz") | i)
|
|
end
|