13 lines
376 B
Haskell
13 lines
376 B
Haskell
|
import Control.Monad.State
|
||
|
|
import Control.Monad.Trans
|
||
|
|
import Control.Monad.Writer
|
||
|
|
|
||
|
|
main = putStr $ execWriter $ mapM_ (flip execStateT True . fizzbuzz) [1..100]
|
||
|
|
|
||
|
|
fizzbuzz :: Int -> StateT Bool (Writer String) ()
|
||
|
|
fizzbuzz x = do
|
||
|
|
when (x `mod` 3 == 0) $ tell "Fizz" >> put False
|
||
|
|
when (x `mod` 5 == 0) $ tell "Buzz" >> put False
|
||
|
|
get >>= (flip when $ tell $ show x)
|
||
|
|
tell "\n"
|