11 lines
208 B
Haskell
11 lines
208 B
Haskell
fizzbuzz :: Int -> String
|
|
fizzbuzz x
|
|
| f 15 = "FizzBuzz"
|
|
| f 3 = "Fizz"
|
|
| f 5 = "Buzz"
|
|
| otherwise = show x
|
|
where
|
|
f = (0 ==) . rem x
|
|
|
|
main :: IO ()
|
|
main = mapM_ (putStrLn . fizzbuzz) [1 .. 100]
|