fizzbuzz.hs

module Main where

main :: IO ()
main = do putStrLn "FizzBuzz Upto: "
      n <- getLine
      printAll $ map fizzbuzz [1..(read n :: Int)]
      where
      printAll [] = getLine >> return ()
      printAll (x:xs) = putStrLn x >> printAll xs
      fizzbuzz n
        | mod n 15 == 0 = "FizzBuzz"
        | mod n 5  == 0 = "Buzz"
        | mod n 3  == 0 = "Fizz"
        | otherwise    = show n

main = putStr "FizzBuzz Upto: " >> getLine >>= mapM_ (putStrLn . fizzbuzz) . enumFromTo 1 . read
  where
    fizzbuzz n
      | mod n 15 == 0 = "FizzBuzz"
      | mod n  5 == 0 = "Buzz"
      | mod n  3 == 0 = "Fizz"
      | otherwise     = show n