chickadee » anaphora » list-recurser

list-recurser recurser baseprocedure

generates a procedure which traverses on the cdrs of its only list argument.

(define (lsome? ok?)
  (list-recurser (lambda (lst th) (or (ok? (car lst)) (th))) #f))
((lsome? odd?) '(2 4 5 6)) ; -> #t