fizzbuzz in Haskell

Main.hs

module Main where

import Data.Monoid ((<>))
import Data.Maybe (fromMaybe)
import Control.Applicative (liftA2)

main :: IO ()
main = print $ take 100 $ fizzBuzzIntString <$> [1..]

fizzBuzzIntString :: Int -> String
fizzBuzzIntString = fromMaybe <$> show <*> fizzString <> buzzString
-- Alternatively:
-- fizzBuzzIntString = fromMaybe . show <*> fizzString <> buzzString
-- fizzBuzzIntString = liftA2 fromMaybe show $ fizzString <> buzzString

fizzString :: Int -> Maybe String
fizzString n = if n `mod` 3 == 0 then Just "fizz" else Nothing

buzzString :: Int -> Maybe String
buzzString n = if n `mod` 5 == 0 then Just "buzz" else Nothing

Cool!

Nice!