Haskell Quiz/FizzBuzz/Solution Ninju: Difference between revisions

From HaskellWiki
(Moved my solution to its own page, following quiz convention.)
(Remove old, not very useful page)
Line 1: Line 1:
[[Category:Haskell Quiz solutions|FizzBuzz]]


I think this is probably what I'd do in the interview situation - i.e. the first and most obvious thing that comes to mind.
<haskell>
module Main where
main :: IO ()
main = printAll $ map fizzBuzz [1..100]
      where
      printAll [] = return ()
      printAll (x:xs) = putStrLn x >> printAll xs
fizzBuzz :: Integer -> String
fizzBuzz n | n `mod` 15 == 0 = "FizzBuzz"
          | n `mod` 5  == 0 = "Fizz"
          | n `mod` 3  == 0 = "Buzz"
          | otherwise      = show n
</haskell>

Revision as of 14:23, 6 February 2021