7 lines
305 B
Text
7 lines
305 B
Text
gen n word = cycle (take (n - 1) (repeat "") ++ [word])
|
|
pattern = zipWith (++) (gen 3 "fizz") (gen 5 "buzz")
|
|
fizzbuzz = zipWith combine pattern [1..] where
|
|
combine word number = if null word
|
|
then show number
|
|
else word
|
|
show $ take 100 fizzbuzz
|