Welcome to the CHICKEN Scheme pasting service

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))))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
What type of object does `for-each' expect as second argument?
Visually impaired? Let me spell it for you (wav file) download WAV