Personal tools

Haskell Quiz/FizzBuzz/Solution Mikbe

From HaskellWiki

< Haskell Quiz | FizzBuzz(Difference between revisions)
Jump to: navigation, search
(New page: I just started learning Haskell literally this week so I went with simple and straight forward. Can't wait till I learn a little so I can make this a one liner. <haskell> module Main wher...)
 
 
Line 6: Line 6:
 
main :: IO ()
 
main :: IO ()
 
main = do
 
main = do
mapM_ (putStrLn . show) [fizzBuzz x | x <- [1..100]]
+
mapM_ (putStrLn) [fizzBuzz x | x <- [1..100]]
   
 
fizz::Int->String
 
fizz::Int->String

Latest revision as of 08:28, 23 August 2011

I just started learning Haskell literally this week so I went with simple and straight forward. Can't wait till I learn a little so I can make this a one liner.

module Main where
 
  main :: IO ()
  main = do 
    mapM_ (putStrLn) [fizzBuzz x | x <- [1..100]]
 
  fizz::Int->String
  fizz x = if x `mod` 3 == 0 then "Fizz" else ""
 
  buzz::Int->String
  buzz x = if x `mod` 5 == 0 then "Buzz" else ""
 
  fizzBuzz::Int->String
  fizzBuzz x = if fizz(x) ++ buzz(x) == "" 
    then show x 
    else fizz(x) ++ buzz(x)