FizzBuzz.hs

import System.Environment (getArgs)

main = do
    (x:_) <- getArgs
    mapM_ putStrLn $ createFizzBuzz $ read x

createFizzBuzz :: Int -> [String]
createFizzBuzz 0 = []
createFizzBuzz x = map fizzbuzz [1..x]

fizzbuzz :: Int -> String
fizzbuzz x
    | x `mod` 15 == 0 = "FizzBuzz"
    | x `mod` 5 == 0 = "Buzz"
    | x `mod` 3 == 0 = "Fizz"
    | otherwise = show x