Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (8 sloc) 231 Bytes
(define (look-up given-key tree)
(cond
((null? tree) #f)
((= given-key (car tree)) #t)
((> given-key (car tree))
(look-up given-key (right-branch tree)))
(else
(look-up given-key (left-branch tree)))))