Haskell Quiz/FizzBuzz/Solution Acontorer

From HaskellWiki
< Haskell Quiz‎ | FizzBuzz
Revision as of 22:21, 7 October 2012 by Acontorer (talk | contribs) (New page: FizzBuzz <haskell> -- This implementation is designed to demonstrate extensibility, -- as the list of tags can be easily edited, loaded from a file, et...)

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search


-- This implementation is designed to demonstrate extensibility,
-- as the list of tags can be easily edited, loaded from a file, etc.

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]