codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
import Data.List main :: IO () main = mapM_ putStrLn $ take 100 fizzbuzz fizzbuzz :: [String] fizzbuzz = zipWith3 (\n fizz buzz -> if null (fizz++buzz) then show (n::Int) else fizz++buzz) [1..] (cycle ["","","Fizz"]) (cycle ["","","","","Buzz"])
Private
[
?
]
Run code
Submit