FizzBuzz in Haskell.

fizzbuzz.hs

-- Thanks to @VoQn
main = mapM_ (putStrLn . fizzbuzz)[1..100]
  where
    fizzbuzz x | x `mod` 15 == 0 = "FizzBuzz"
               | x `mod`  5 == 0 = "Buzz"
               | x `mod`  3 == 0 = "Fizz"
               | otherwise       = show x

fizzbuzz2.hs

-- Thanks to @masa_edw
main = mapM_ putStrLn $ fizzbuzzList 100
  where
    fizzbuzzList x = [fizzbuzz x | x <- [1..x]]
      where
        fizzbuzz x | x `mod` 15 == 0 = "FizzBuzz"
                   | x `mod`  5 == 0 = "Buzz"
                   | x `mod`  3 == 0 = "Fizz"
                   | otherwise       = show x