相当于LIST的LISP'dister'功能

Question

我有以下列表:

(1 (2))

我想用(2(3))替换(2)以获得:

(1 (2 (3)))

如下使用subst不会返回所希望的结果:

(subst '(2 (3)) '(2) '(1 (2)))

有没有简单的方法来执行替换？

Answer 1

默认情况下,subst使用eql,你必须指定:test参数使用#'equal,得到你想要的.

CL-USER> (subst '(2 (3)) '(2)  '(1 (2)) :test #'equal)
(1 (2 (3)))

如您所见,两个直接指定的列表不是EQL,但它们是EQUAL:

CL-USER> (eql '(2) '(2)) 
NIL
CL-USER> (equal '(2) '(2))
T

阅读更多关于 lisp中的eq,eql,equal和eqaulp的区别.