创建列表作为参数传递给LISP中的函数

Question

我在LISP中编写了一个代码，我将3个不同的列表从用户作为参数传递给我的函数，然后我想创建这些列表的新列表..我尝试了简单的编码，但它没有给我想要的输出。

这是我写的代码：

(defun demo(n1 n2 n3) 
    (setq list1 '(n1 n2 n3)) 
    (print list1)) 

CL-USER 12 : 5 > (demo '(1 2 3) '(4 5 6) '(7 8 9)) 
(N1 N2 N3) 
(N1 N2 N3) 

当我运行此代码，而不是给列出它给我的输出列表：

(n1 n2 n3) 

所需的输出是

((1 2 3) (4 5 6) (7 8 9)) 

Answer 1

因为您正在引用它，所以您正在获得文字列表。您需要在函数调用中引用变量以创建新列表。

(defun demo (n1 n2 n3) 
    (let ((list1 (list n1 n2 n3))) 
    (print list1))) 

您还可以使用反引号：

(defun demo (n1 n2 n3) 
    (let ((list1 `(,n1 ,n2 ,n3))) 
    (print list1))) 

您还应该使用let绑定本地变量，而不是setq分配一个全局变量。