5 lines
106 B
Plaintext
5 lines
106 B
Plaintext
|
(define (for-each f l)
|
||
|
(if (not (null? l))
|
||
|
(begin (f (car l))
|
||
|
(for-each f (cdr l)))))
|