Haskell Quiz/FizzBuzz/Solution Ninju
< Haskell Quiz | FizzBuzz
Revision as of 15:19, 6 February 2021 by Gwern (Reverted edits by Tomjaguarpaw (talk) to last revision by Syzygies)
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.
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