RosettaCodeData/Task/Parametric-polymorphism/Haskell/parametric-polymorphism-2.hs

instance Functor Tree where
    fmap f Empty        = Empty
    fmap f (Node x l r) = Node (f x) (fmap f l) (fmap f r)
Initial data commit 2023-07-01 11:58:00 -04:00			`instance Functor Tree where`
			`fmap f Empty = Empty`
			`fmap f (Node x l r) = Node (f x) (fmap f l) (fmap f r)`