(height (make-leaf 3)) ⇒ 0 (height bushy-tree) ⇒ 2 (height branchless-tree) ⇒ 6
Facts about binary trees:
|
(define height
(lambda (tree)
(cond ((leaf? tree) 0)
((empty-tree? (left-subtree tree))
(+ 1 (height (right-subtree tree))))
(___?___))))
|