"Haskell Fizzbuzz!"
By GGMethos (https://pastebin.com/u/GGMethos)

URL: https://pastebin.com/Zc6FWAA7
Created on: Saturday 21st of December 2013 05:18:22 PM CDT
Retrieved on: Monday 26 of October 2020 05:56:02 AM UTC


module Main where
 
main :: IO ()
main = printAll $ map fizzBuzz [1..100]
       where
       printAll [] = return ()
       printAll (x:xs) = putStrLn x >> printAll xs
 
fizzBuzz :: Integer -> String
fizzBuzz n | n `mod` 15 == 0 = "FizzBuzz"
           | n `mod` 5  == 0 = "Fizz"
           | n `mod` 3  == 0 = "Buzz"
           | otherwise       = show n