10 lines
286 B
Text
10 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]
|