11 lines
259 B
Text
11 lines
259 B
Text
|
# idiomatic modulo tester, 2nd alternative
|
||
|
|
procedure main()
|
||
|
|
every i := 1 to 100 do
|
||
|
|
write(case 0 of {
|
||
|
|
i % 15 : "FizzBuzz"
|
||
|
|
i % 5 : "Buzz"
|
||
|
|
i % 3 : "Fizz"
|
||
|
|
default: i
|
||
|
|
})
|
||
|
|
end
|