参考記事 まず Arrow 記法で書く {-# LANGUAGE Arrows #-} module FizzBuzz where import Control.Arrow ( (<<<), Arrow(arr) ) r :: String -> Bool -> String r s b = if b then s else "" fb :: Integer -> String fb = proc x -> do a <- (==0) . (`mod`…