리스프는 테스트 CLISP을 사용하여, 나는 리스프에서 숙제를하고 있어요

Question

내 목록을 반대하지 않습니다, 나는

(defun myreverse (thelist) 

(reverse thelist) 
(print thelist) 

(if (equal thelist nil) 
    nil 
    (if (consp (first thelist)) 
      (cons (myreverse (reverse (first thelist))) 
       (myreverse (reverse (rest thelist)))) 
      (cons (first thelist) (myreverse (rest thelist)))))) 

나는 새로운 종류의이야이 코드를로드하고 CLISP에서의 실행 해요 리스프하지만이 코드는 모든 thelist 반전되지 않으며, 내 출력은 다음과 같습니다

[18]> (myreverse '(a (b c) d)) 

(A (B C) D) 
((B C) D) 
(C B) 
(B) 
NIL 
(D) 
NIL 
(A (C B) D) 

내 코드의 첫 번째 줄, 왜 첫 번째 인쇄 문 반전되지 (reverse thelist)라고? 내가 놓친 게 있니?

Answer 1

필자는 (역순) 부작용이 없으므로 원래 목록을 역으로 만들지는 않겠지 만 역순으로 새 목록을 반환합니다. 이것은 Common Lisp에서는 그리 자연스럽지 않지만 Scheme에서 기대됩니다. 그럼에도 불구하고, 여기에 문서가있다. http://www.lispworks.com/documentation/HyperSpec/Body/f_revers.htm#reverse