-- Fizzbuzz Haskell solution with table lookup by FredOverflow table = [ show, show, const "fizz", show, const "buzz", const "fizz", show, show, const "fizz", const "buzz", show, const "fizz", show, show, const "fizzbuzz"] fizzbuzz = map (uncurry ($)) $ zip (cycle table) [1..100] main = mapM_ putStrLn fizzbuzz