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 ex2

Browse Source
This commit is contained in:
Aaro Koivukangas
2025-12-23 22:36:01 +02:00
parent 5b3f97897c
commit 9bc9c12a43
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
@@ -27,7 +27,8 @@ valAtRoot Empty = Nothing
-- treeSize (Node 3 (Node 7 Empty Empty) (Node 1 Empty Empty)) ==> 3
treeSize :: Tree a -> Int
treeSize t = todo
treeSize (Node _ t1 t2) = 1 + (treeSize t1) + (treeSize t2)
treeSize Empty = 0
------------------------------------------------------------------------------
-- Ex 3: get the largest value in a tree of positive Ints. The