iritmaximus/haskell
1
0
Fork 0
mirror of https://github.com/iritmaximus/haskell.git synced 2026-10-12 19:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

5b ex1

Browse Source
This commit is contained in:
Aaro Koivukangas
2025-12-23 22:28:22 +02:00
parent bea36bdc2c
commit 5b3f97897c
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Set5b.hs
+2 -1
View File
@@ -15,7 +15,8 @@ data Tree a = Empty | Node a (Tree a) (Tree a)
-- because the tree might be empty (i.e. just a Empty)
valAtRoot :: Tree a -> Maybe a
valAtRoot t = todo
valAtRoot (Node t _ _) = Just t
valAtRoot Empty = Nothing
------------------------------------------------------------------------------
-- Ex 2: compute the size of a tree, that is, the number of Node