ompayne
/
sicp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
sicp/2_23.sch

5 lines
106 B
Scheme
Raw Permalink Blame History

(define (for-each f l)
(if (not (null? l))
(begin (f (car l))
(for-each f (cdr l)))))
Reference in New Issue View Git Blame Copy Permalink