Better Function Using LETREC

(define search



(lambda (stack next success)

(letrec ((search-help
(lambda (l)
(cond

((null? l) NIL)
((success (car l)) (car l))

(else (search-help
(append l (next (car l))))))))
(search-help stack))))

Previous slide

Next slide

Back to first slide

View graphic version