61

tianyicui · Dec 2, 2010 · db46b7d · db46b7d
1 parent 6db803b
commit db46b7d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/54A-60/BinaryTrees.hs → BinaryTrees.hs b/54A-60/BinaryTrees.hs → BinaryTrees.hs
@@ -88,3 +88,7 @@ hbalTreeNodes n =
       , tl <- calc nl hl
       , tr <- calc nr hr
       ]
+
+countLeaves Empty                  = 0
+countLeaves (Branch _ Empty Empty) = 1
+countLeaves (Branch _ l     r    ) = countLeaves l + countLeaves r