書いてみた。もっとカッコ良く書けると思うんだけど。ArrowChoiceとか使って。 import Control.Arrow newtype FB a b = FB {run :: a -> b} instance Arrow FB where arr f = FB f (FB f) >>> (FB g) = FB (g . f) first (FB f) = FB (first f) fizzbuzz = m…