FizzBuzz
123456789
main :: IO ()
main = mapM_ putStrLn $ map fizzBuzz [1..100]
fizzBuzz :: Int -> String
fizzBuzz n
| n `mod` 15 == 0 = "FizzBuzz"
| n `mod` 3 == 0 = "Fizz"
| n `mod` 5 == 0 = "Buzz"
| otherwise = show n
Haskell
INFO
FizzBuzz
Haskell
INFO