FizzBuzzBaz.hs

-- What is the big deal? Took all of 2 minutes to write this
module Main where

main :: IO ()
main = mapM_ (putStrLn . fizzbuzz) [1..100]

fizzbuzz :: Int -> String
fizzbuzz x = divisors `orElse` show x
  where
    divisors = concatMap test [(3,"Fizz"),(5,"Buzz"),(7,"Baz")]
    test (i,s) = if x `mod` i == 0 then s else ""
    orElse [] a = a
    orElse a _ = a