fizzBuzz.hs

import Data.Maybe

fizzBuzzList :: Int -> Maybe String
fizzBuzzList n = list !! index where
    list = [ Just "fizzbuzz" 
           , Nothing
           , Nothing
           , Just "fizz"
           , Nothing
           , Just "buzz"
           , Just "fizz"
           , Nothing
           , Nothing
           , Just "fizz"
           , Just "buzz"
           , Nothing
           , Just "fizz"
           , Nothing
           , Nothing]
    index = mod n 15

fizzBuzz :: Int -> String
fizzBuzz n = result where
    maybeResult = fizzBuzzList n
    result = fromMaybe (show n) maybeResult

main :: IO ()
main = mapM_ (print . fizzBuzz) [0 .. 32]