2008. 4. 16.

연습문제 2.23

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


(define (my-for-each proc lst)
  (if (null? lst)
      (newline)
      (begin
        (proc (car lst))
        (my-for-each proc (cdr lst)))))


댓글 없음:

댓글 쓰기