Haskell Quiz/FizzBuzz/Solution Heisenbug: Difference between revisions

From HaskellWiki
m (use ++ from Prelude)
(Remove old, not very useful page)
Line 1: Line 1:
  {-# 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])

Revision as of 14:23, 6 February 2021

Retrieved from "https://wiki.haskell.org/index.php?title=Haskell_Quiz/FizzBuzz/Solution_Heisenbug&oldid=63740"