Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl import Control.Monad import Data.List import Data.Char main = mapM_ putStrLn $ zipWith3 (\a b c -> head $ groupBy (\a b -> isAlpha a == isAlpha b) (a ++ b ++ c)) (cycle ["","","Fizz"]) (cycle ["","","","","Buzz"]) (map show [1..100]) Private [?] Run code