(define (my-for-each proc items)
(if (null? items)
#f
(and (proc (car items))
(my-for-each proc (cdr items)))))
练习2.23
最新推荐文章于 2024-01-22 10:12:51 发布
(define (my-for-each proc items)
(if (null? items)
#f
(and (proc (car items))
(my-for-each proc (cdr items)))))