haskell fizzbuzz repl.it

fizzbuzz.hs

-- "::" has type
fizz :: Int -> String
-- "|" pipe
-- If incremented in 15, 3 or 5 have this text
-- otherwise show number instead :^)
fizz n | n `mod` 15 == 0 = "FizzBuzz"
       | n `mod` 3 == 0 = "Buzz"
       | n `mod` 5 == 0 = "Fizz"
       | otherwise = show n

-- main has type IO()
main :: IO()
main = mapM_ putStrLn $ map fizz [1..20]

{-|
  This will print:
  1
  2
  Buzz
  4
  Fizz
  Buzz
  7
  8
  Buzz
  Fizz
  11
  Buzz
  13
  14
  FizzBuzz
  16
  17
  Buzz
  19
  Fizz
-}