Difference between revisions of "Haskell Quiz/FizzBuzz/Solution Heisenbug"
< Haskell Quiz | FizzBuzz
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])