4 lines
119 B
Text
4 lines
119 B
Text
|
instance Functor Tree where
|
||
|
|
fmap f Empty = Empty
|
||
|
|
fmap f (Node x l r) = Node (f x) (fmap f l) (fmap f r)
|