First commit of partial RosettaCode contents.
Pushing this for testing purposes. Lots of work still needed.
This commit is contained in:
commit
1e05ecd7ee
781 changed files with 9080 additions and 0 deletions
5
Task/FizzBuzz/Haskell/fizzbuzz-2.hs
Normal file
5
Task/FizzBuzz/Haskell/fizzbuzz-2.hs
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
main = mapM_ putStrLn $ take 100 fizzbuzz
|
||||
|
||||
fizzbuzz = zipWith (\x y -> if null y then show x else y) [1..] fbs
|
||||
|
||||
fbs = zipWith (++) (cycle ["","","Fizz"]) (cycle ["","","","","Buzz"])
|
||||
Loading…
Add table
Add a link
Reference in a new issue