Difference between revisions of "Haskell Quiz/FizzBuzz/Solution Heisenbug"

From HaskellWiki
Jump to: navigation, search
(fun exercise)
(No difference)

Revision as of 17:48, 31 July 2017

{-# LANGUAGE LambdaCase #-}

main = mapM_ (putStrLn . fizzbuzz) [1 .. 100]

 where fizzbuzz n = (\case "" -> show n; fb -> fb)
                      (concat $ ["fizz" | n `rem` 3 == 0] <> ["buzz" | n `rem` 5 == 0])