Haskell Quiz/FizzBuzz/Solution Acontorer: Difference between revisions
< Haskell Quiz | FizzBuzz
Tomjaguarpaw (talk | contribs) Remove old, not very useful page |
m Reverted edits by Tomjaguarpaw (talk) to last revision by Acontorer |
||
| Line 1: | Line 1: | ||
[[Category:Haskell Quiz solutions|FizzBuzz]] | |||
<haskell> | |||
-- a FizzBuzz (and FizzBuzzBaz) solution by Aaron Contorer. | |||
-- This implementation is designed for extensibility, | |||
-- as the list of tags can be easily edited, loaded from a file, etc. | |||
-- Number range is set >100 so as to demonstrate the FizzBuzzBaz case. | |||
fizzBuzz i = if null desc then show i else desc where | |||
desc = concat [label | (j,label) <- tags, 0 == rem i j] | |||
tags = [ (3,"Fizz"), (5,"Buzz"), (7,"Baz") ] | |||
main = mapM_ (putStrLn . fizzBuzz) [1..120] | |||
</haskell> | |||
Latest revision as of 15:19, 6 February 2021
-- a FizzBuzz (and FizzBuzzBaz) solution by Aaron Contorer.
-- This implementation is designed for extensibility,
-- as the list of tags can be easily edited, loaded from a file, etc.
-- Number range is set >100 so as to demonstrate the FizzBuzzBaz case.
fizzBuzz i = if null desc then show i else desc where
desc = concat [label | (j,label) <- tags, 0 == rem i j]
tags = [ (3,"Fizz"), (5,"Buzz"), (7,"Baz") ]
main = mapM_ (putStrLn . fizzBuzz) [1..120]