#lang racket
(define (for-each proc items)
(if (null? items)
#t
(begin (proc (car items))
(for-each proc (cdr items)))))
(for-each (lambda (x) (newline) (display x))
(list 57 321 88))
运行结果
57
321
88#t
#lang racket
(define (for-each proc items)
(if (null? items)
#t
(begin (proc (car items))
(for-each proc (cdr items)))))
(for-each (lambda (x) (newline) (display x))
(list 57 321 88))
运行结果
57
321
88#t