在Common Lisp中合并列表项（Clisp）

Question

我无法将列表中的两个项目合并为一个项目。

例如：

'(Ben Hofferber) => '(Ben_Hofferber) or '(Ben-Hofferber) 

如何可以做到这一点任何想法？

我一直在搞打印功能试图让它以没有成功的方式工作。我需要组合和分离这些项目，以便我可以使用它们作为一个列表的关键。

Answer 1

您也可以使用列表作为alist键。 例如，

(assoc '(1 2) '(((1 1) a) ((1 2) b) ((1 3) c)) :test #'equal) 
==> ((1 2) B) 

所以，如果你有一个人

(defparameter *people* '((Ben Hofferber) (Adam Young))) 

一个列表，你可以设置他们的年龄是这样的：

(defparameter *ages* (mapcar #'list *people* '(20 11))) 

，并发现它们是这样的：

(assoc '(Ben Hofferber) *ages* :test #'equal) 
==> ((BEN HOFFERBER) 20) 

但是，如果你insi把符号合并成一个，你必须解释你想怎么做。

如果两个符号是在同一个包，组合符号可以放在那里太：

(defun combine-symbols (s1 s2) 
    (intern (concatenate 'string (symbol-name s1) "-" (symbol-name s2)) 
      (symbol-package s1))) 

，但如果他们在不同的包（例如，cl:car和cl-user::ben），你将不得不作出一个艰难的选择，哪个包去。

或者，你可以去用绳子和使用

(defun combine-objects (o1 o2) 
    (format nil "~A-~A" o1 o2)) 

不要忘记通过:test #'equal或:test #'string=到assoc。