Silly haskell version of that FizzBuzz problem. Written because I was bored.

fizzbuzz.hs

-- new and improved!

import Control.Applicative ((<|>))
import Data.Maybe (catMaybes)

nfilter n k = cycle $ take n $ (Just k) : (repeat Nothing)

joinf Nothing Nothing = Nothing
joinf Nothing (Just a) = Just a
joinf (Just a) Nothing = Just a
joinf (Just a) (Just b) = Just $ a ++ b

fizzF = nfilter 3 "Fizz"
buzzF = nfilter 5 "Buzz"
fizzbuzzF = zipWith joinf fizzF buzzF

fizzbuzz = catMaybes $ tail $ zipWith (<|>) fizzbuzzF $ map (Just . show) [0..]
 
main = mapM_ putStrLn (take 100 fizzbuzz)