4

我想在列表中插入一个字符。但是，我想将此字符与列表中的最后一个符号合并。使用 appends 和 cons，结果总是两个不同的符号。好吧，我想要一个合并的符号作为我的结果。

例子：

       (XXXX 'a '5) ====>  (a5)

我想要的，而不是：

       (XXXX 'a '5) ====> (a 5)
4

3 回答 3

11

您不能在 Lisp 中“合并符号”。

首先，5不是一个符号，而是一个数字。如果要命名符号"5"，则必须将其键入为|5|（例如）。

如果一个函数接受 symbolA和 symbol |5|，并产生 symbol A5，它没有合并符号。它创建了一个新符号，其名称是这些输入符号名称的串联。

正确设计的 Lisp 程序很少依赖于符号的命名方式。它们依赖于作为唯一实体的符号。

如果您使用符号来识别事物，并同时5识别A某些实体，那么最好的答案不一定是创建一个新符号，至少在名称上，它是这两个符号的混搭。例如，更好的设计可能是接受名称是多方面的或以某种方式复合的。也许该列表(A 5)可以用作名称。

Common Lisp 函数本身可以有复合名称。例如(setf foo)是一个函数名。像列表这样的聚合可以是名称。

如果您只需要机器在运行时发明独特的符号，请考虑使用该gensym功能。您可以将自己的前缀传递给它：

(gensym "FOO") -> #:FOO0042

当然，前缀可以是一些现有符号的名称，通过symbol-name. 该符号#:FOO0042不是唯一的，0042因为它是地址空间中新分配的对象。这#:意味着它没有被困在任何包中。符号的名称是FOO0042。

如果您仍然真的想要，一个简单的方法来获取一堆输入对象的打印表示并将其转换为符号是这样的：

(defun mashup-symbol (&rest objects)
  (intern (format nil "~{~a~}" objects)))

例子：

(mashup-symbol 1 2 3) -> |123|

(mashup-symbol '(a b) 'c 3) -> |(A B)C3|
于 2013-03-29T20:25:00.487 回答
5

定义这个：

(defun symbol-append (&rest symbols) 
  (intern (apply #'concatenate 'string 
                 (mapcar #'symbol-name symbols))))

然后将其用作：

* (symbol-append 'a 'b 'c)
ABC

* (apply #'symbol-append '(a b c))
ABC

如果您希望您的参数包含符号以外的其他内容，请替换symbol-name为：

   (lambda (x)
     (typecase x ...))

或预先存在的 CL 函数（我忘记了 :() 将任何内容字符串化。

于 2013-03-29T20:10:24.643 回答
2

你问的问题的答案是

(defun concatenate-objects-to-symbol (&rest objects)
  (intern (apply #'concatenate 'string (mapcar #'princ-to-string objects))))
(concatenate-objects 'a 'b) ==> ab

哦，如果你想要一个列表作为结果：

(defun xxxx (s1 s2) (list (concatenate-objects-to-symbol s1 s2)))

但是，我很确定这不是您真正想问的问题。

以编程方式创建新符号不是初学者应该做的事情......

于 2013-03-29T19:31:08.443 回答