Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl myLookup _ [] = Nothing myLookup key ((thiskey,thisval):rest) = if key == thiskey then Just thisval else myLookup key rest fizzbuzz x = case (x `mod` 3, x `mod` 5) of (0, 0) -> "FizzBuzz" (0, _) -> "Fizz" (_, 0) -> "Buzz" _ -> show x main = mapM_ (putStrLn . fizzbuzz) [1..100] Private [?] Run code