尝试颠倒列表时出现分段错误

Question

我正在学习Common Lisp，并且我一直在尝试编写一个函数来颠倒列表。这是功能，但每次我试图运行它，我得到“段错误（核心转储）”

(defun reverseList(x) 
    (if (cdr x) 
     (cons (reverseList x) (car x)) 
    (car x))) 


(reverseList '(1 2 3)) 

Answer 1

我认为这会工作：（！原文如此）

(define reverseList(lambda(x)(
          if (null? (cdr x)) 
          (cons (car x) '()) 
          (append (reverseList (cdr x)) (cons (car x) '()))         
          ) 
       ) 
)