for-each의 리턴값은 임의의 값일 수 있다고 했으므로 여기서는 newline을 그냥 호출한다.
이후에 해당하는 함수를 호출하고 다시 재귀를 해야하므로 편법이기는 하지만 여기서는 begin을 써서 복수 문장을 동시에 수행하도록 했다.

이후에 해당하는 함수를 호출하고 다시 재귀를 해야하므로 편법이기는 하지만 여기서는 begin을 써서 복수 문장을 동시에 수행하도록 했다.
(define (my-for-each proc lst)
(if (null? lst)
(newline)
(begin
(proc (car lst))
(my-for-each proc (cdr lst)))))

댓글 없음:
댓글 쓰기