Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
17 lines (12 sloc) 266 Bytes
(define (for-each proc items)
(cond ((null? items) #t)
(else
(proc (car items))
(for-each proc (cdr items)))))
;;; 使用例
(for-each (lambda (x) (newline) (display x))
(list 57 321 88))
;;; 結果出力
;; 57
;; 321
;; 88