Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl main = print (fizzbuzz 1 100) fizzbuzz :: Integer -> Integer -> [String] fizzbuzz x y | x > y = [] | (mod x 15) == 0 = "FizzBuzz" : fizzbuzz (x + 1) y | (mod x 3) == 0 = "Fizz" : fizzbuzz (x + 1) y | (mod x 5) == 0 = "Buzz" : fizzbuzz (x + 1) y | otherwise = (show x) : fizzbuzz (x + 1) y Private [?] Run code Submit