EX 2.66

netawater's picture
Tue, 2006/09/19 - 09:09 — netawater
(define (lookup given-key set-of-records)
  (cond ((null? set-of-records) false)
        ((= given-key (key (entry set-of-records)))
         (car set-of-records))
        ((< given-key (key (entry set-of-records)))
         (lookup given-key (left-branch set-of-records)))
        (else (lookup given-key (right-branch set-of-records)))))

...... full content is only available to community members.

  • Login to post comments
  • 1392 reads