- 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
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