9 lines
286 B
Text
9 lines
286 B
Text
partial
|
|
fizzBuzz : Nat -> String
|
|
fizzBuzz n = if (n `modNat` 15) == 0 then "FizzBuzz"
|
|
else if (n `modNat` 3) == 0 then "Fizz"
|
|
else if (n `modNat` 5) == 0 then "Buzz"
|
|
else show n
|
|
|
|
main : IO ()
|
|
main = sequence_ $ map (putStrLn . fizzBuzz) [1..100]
|