2008. 4. 18.

연습문제 2.27

(define (my-deep-reverse lst)
  (cond ((null? lst) lst)
        ((not (pair? lst)) lst)
        (else
         (append (my-deep-reverse (cdr lst))
                 (list (my-deep-reverse (car lst)))))))
Append 뒤에는 리스트가 와야하니 결과를 일단 list로 감쌌다

댓글 없음:

댓글 쓰기