-- 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 = zipWith ($) (cycle table) [1..100] main = mapM_ putStrLn fizzbuzz