CaZzzer/cs-252
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lab06: impl

Browse Source
This commit is contained in:
Yura
2026-02-23 11:29:46 -08:00
parent d5b3fdf33a
commit 4e8118bfc0
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lab06/functors.lhs
View File

@@ -3,6 +3,10 @@
> | Node v (Tree v) (Tree v) > | Node v (Tree v) (Tree v)
> deriving (Show) > deriving (Show)
> instance Functor Tree where
> fmap f (Node v left right) = Node (f v) (fmap f left) (fmap f right)
> fmap f Empty = Empty
The findT method shows how we may search through the tree to find a value. The findT method shows how we may search through the tree to find a value.
> findT :: Ord v => v -> Tree v -> Maybe v > findT :: Ord v => v -> Tree v -> Maybe v
@@ -18,4 +22,3 @@ The findT method shows how we may search through the tree to find a value.
Your job is to add support for fmap to this tree, so that the call to fmap below works: Your job is to add support for fmap to this tree, so that the call to fmap below works:
> main = print $ fmap (+1) (Node 3 (Node 1 Empty Empty) (Node 7 (Node 4 Empty Empty) Empty)) > main = print $ fmap (+1) (Node 3 (Node 1 Empty Empty) (Node 7 (Node 4 Empty Empty) Empty))