Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

90% of /prog/ can't write FizzBuzz

Name: The antagonist 2008-04-25 12:38

Prove me wrong

Write a program that prints the numbers from 1 to 100. But for multiples of three print "Fizz" instead of the number and for the multiples of five print "Buzz". For numbers which are multiples of both three and five print "FizzBuzz".

Name: Anonymous 2008-04-25 17:52

lol scalable

fizzBuzz =
   zipWith numMerge [1..100] $ foldl1 (zipWith (++))
                             $ map (uncurry pulse) [(3, "Fizz"), (5, "Buzz")]
   where
      pulse freq string = cycle $ replicate (freq - 1) [] ++ [string]
      numMerge num [] = show num
      numMerge _ string = string

main = mapM_ putStrLn fizzBuzz
Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List
All trademarks and copyrights on this site are owned by their respective parties. All comments and posts are the responsibility of their own posters.
- Tinychan + 2ch Mode -