find-map added by gahr on Wed Jan 1 21:44:36 2025
(define (find-map p l)
(let loop ((l l))
(cond ((null? l) #f)
((p (car l)) => identity)
(else (loop (cdr l))))))
(define (find-map p l)
(let loop ((l l))
(cond ((null? l) #f)
((p (car l)) => identity)
(else (loop (cdr l))))))