|
Compare looking something up in:
|
(define in?
(lambda (elt tree)
(cond
((empty-tree? tree) #f)
((= elt (root tree)) #t)
((< elt (root tree))
(in? elt (left-subtree tree)))
(else
(in? elt (right-subtree tree))))))
|
Related exercises: