7 lines
149 B
Scheme
7 lines
149 B
Scheme
#lang sicp
|
|
|
|
(define (my-for-each func list)
|
|
(if (null? list)
|
|
#t
|
|
(begin (func (car list))
|
|
(my-for-each func (cdr list)))))
|