carldr.com

# fizz buzz in haskell

main = putStrLn ( join ( map fizzbuzz [1..100] ) )
join         :: [String] -> String
join [x]     = x
join (x:xs)  = x ++ "\n" ++ ( join xs )
fizzbuzz    :: Integer -> String
fizzbuzz x  | ( mod x 15 ) == 0  = "Fizzbuzz" 
            | ( mod x 3 ) == 0   = "Fizz" 
            | ( mod x 5 ) == 0   = "Buzz" 
            | otherwise          = show x

And the third (first, second) of my Haskell programs. Fizz Buzz! I deliberately built the string in a different (and probably better) way than 99 bottles.