Tree型 を Functor のインスタンスにする instance Functor Tree where fmap f EmptyTree = EmptyTree fmap f (Node x left right) = Node (f x) (fmap f left) (fmap f right) 実行する *Main> fmap (*2) EmptyTree EmptyTree *Main> fmap (*4) (foldr tree…