codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
fizzBuzz :: (Integral a) => a -> String fizzBuzz i | fizz && buzz = "FizzBuzz" | fizz = "Fizz" | buzz = "Buzz" | otherwise = show i where fizz = mod i 3 == 0 buzz = mod i 5 == 0 main = mapM_ (putStrLn . fizzBuzz) [1..100]
Private
[
?
]
Run code
Submit