Difference between revisions of "Haskell Quiz/FizzBuzz/Solution Heisenbug"
< Haskell Quiz | FizzBuzz
Jump to navigation
Jump to search
m (use ++ from Prelude) |
Tomjaguarpaw (talk | contribs) (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]) |
||