fugafuga.write

日々のログ

2018-02-05から1日間の記事一覧

すごいH本 part53

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…