Code Review

Compare your solutions

    #| BEGIN (Write your solution here) |#
(define (lookup given-key tree)
    (cond
        ((null? tree) #f)
        ((= given-key (key (entry tree))) (entry tree))
        ((< given-key (key (entry tree))) (lookup given-key (left-branch tree)))
        (else (lookup given-key (right-branch tree)))
    )
)
#| END |#