-- Fizzbuzz Haskell solution with table lookup by Xeo table = [ show, show, const "fizz", show, const "buzz", const "fizz", show, show, const "fizz", const "buzz", show, const "fizz", show, show, const "fizzbuzz"] fizzbuzz = [ x y | (x, y) <- zip (cycle table) [1..100] ] main = mapM_ putStrLn fizzbuzz