练习2.23

(define (my-for-each proc items)  (if (null? items)      #f      (and (proc (car items))           (my-for-each proc (cdr items)))))