monadFizzBuzz.hs

import Control.Monad.Writer
import Control.Monad.Reader

type FizzBuzz = ReaderT Int (Writer String) ()

tellFizz :: FizzBuzz
tellFizz = do
  n <- ask
  when (n `rem` 3 == 0) $ tell "Fizz"

tellBuzz :: FizzBuzz
tellBuzz = do
  n <- ask
  when (n `rem` 5 == 0) $ tell "Buzz"

tellNumber :: FizzBuzz
tellNumber = do
  n <- ask
  when (n `rem` 3 /= 0 && n `rem` 5 /= 0) $ tell (show n)

fizzbuzz :: FizzBuzz
fizzbuzz = do
  tellFizz
  tellBuzz
  tellNumber

runFizzBuzz :: Int -> String
runFizzBuzz = execWriter . runReaderT fizzbuzz

main :: IO ()
main = mapM_ putStrLn $ map runFizzBuzz [1..30]