Difference between revisions of "Haskell Quiz/FizzBuzz/Solution Heisenbug"
< Haskell Quiz | FizzBuzz
Jump to navigation
Jump to search
m (formatting) |
m (Reverted edits by Tomjaguarpaw (talk) to last revision by Heisenbug) |
||
(2 intermediate revisions by 2 users not shown) | |||
Line 3: | Line 3: | ||
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] |
+ | (concat $ ["fizz" | n `rem` 3 == 0] ++ ["buzz" | n `rem` 5 == 0]) |
Latest revision as of 15:18, 6 February 2021
{-# 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])