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

From HaskellWiki
Jump to navigation Jump to search
(fun exercise)
 
m (formatting)
Line 1: Line 1:
−
{-# LANGUAGE LambdaCase #-}
 +
{-# LANGUAGE LambdaCase #-}
   
−
main = mapM_ (putStrLn . fizzbuzz) [1 .. 100]
 +
main = mapM_ (putStrLn . fizzbuzz) [1 .. 100]
−
where fizzbuzz n = (\case "" -> show n; fb -> fb)
 +
where fizzbuzz n = (\case "" -> show n; fb -> fb)
−
(concat $ ["fizz" | n `rem` 3 == 0] <> ["buzz" | n `rem` 5 == 0])
 +
(concat $ ["fizz" | n `rem` 3 == 0] <> ["buzz" | n `rem` 5 == 0])

Revision as of 17:49, 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])
Retrieved from "https://wiki.haskell.org/index.php?title=Haskell_Quiz/FizzBuzz/Solution_Heisenbug&oldid=62043"