Fizzbuzz
From HaskellWiki
I was reading this so I came up with a quick solution in Haskell.
fizz :: Int -> String fizz n | n `mod` 15 == 0 = "FizzBuzz" | n `mod` 3 == 0 = "Fizz" | n `mod` 5 == 0 = "Buzz" | otherwise = show n main :: IO() main = mapM_ putStrLn $ map fizz [1..100]
There's also a page Haskell Quiz/FizzBuzz with another solution.
