我还是用了前面那个非常讨巧的办法,两个if
(define (for-each proc items)
(if (not (null? items)) (proc (car items)))
(if (not (null? items)) (for-each proc (cdr items))))
(for-each (lambda (x) (newline) (display x)) '(57 321 88))
(define (for-each proc items)
(if (not (null? items)) (proc (car items)))
(if (not (null? items)) (for-each proc (cdr items))))
(for-each (lambda (x) (newline) (display x)) '(57 321 88))