元ネタ： FizzBuzz問題から学ぶモナド FizzBuzzをモナドで - トウフ日記 とにかく書いてみた。もう何番煎じ？ import Control.Arrow fizzbuzz = mapM_ (putStrLn . ((fizz &&& buzz >>> chain) &&& nofb >>> chain)) where fizz x | x `mod` 3 == 0 = "Fizz"…