Depth-First Tree Search

• Searching sublists before siblings

(define search

(lambda (x l)

(cond ((null? l) NIL)

((atom? (car l))

(or (eq? x (car l)) (search x (cdr l))))
(else (or (search x (car l))
(search x (cdr l)))))))

Previous slide

Next slide

Back to first slide

View graphic version