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

Simply disgusting.

Once again proving that C can do everything more elegantly and efficient than every other language.

>>3
Partial credit.

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

>>5
mapM_ is ugly.

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

where fizzbuzz such that the gallery programmers are swining on the clotheslines like the bunch of naked lunatics they are

I'd learn Haskell but the disk space GHC would've taken up I've already given to L^aT_eX. As much as I have free, I just don't want to use all my bandwidth on system updates.

>>8

It's \LaTeX{}