我如何在 common lisp 中格式化 alist？

Question

我开始写一些 Common Lisp，并且刚刚掌握将事物组合在一起并格式化它们的窍门。

假设我有一个列表，如下所示：

(defvar *map* '((0 . "zero") (1 . "one") (2 . "two")))

我如何将其格式化为这样？

0: zero
1: one
2: two

我在想类似 (format t "~{~{~a: ~a~}~%~}" *map*) 的东西，但这会产生错误，因为“零”不是名单上，你不能拿走它的车。

当然，执行 (format t "~{~a~%~}" *map*)

(0 . "zero")
(1 . "one")
(2 . "two")

会像预期的那样打印，但这并不完全是我想要的。 有没有比 (dolist (entry *mapping*) (format t "~a: ~a~%" (car Entry) (cdr Entry))) 更好的方法？

Answer 1

Freenode 上的 #cl-gardeners 频道​​建议执行解构循环绑定，如下所示：

(loop for (a . b) in *mapping*
  do (format t "~a: ~a" a b))

Answer 2

你是对的，因为看起来没有任何方法可以从 FORMAT 中分离出 cons 单元格。

如果您定义另一个函数来格式化单个关联：

(defun print-assoc (stream arg colonp atsignp)
  (format stream "~A: ~A" (car arg) (cdr arg)))

那么很简单：

(format t "~{~/print-assoc/~%~}" *map*)

我不确定这是否是一种改进。 一方面，它有点复杂，但另一方面，它确实将 print-assoc 分解为（可重用）函数，这可能很有用。

Answer 3

我认为这里的要点是不要对你的列表使用虚线列表。 当然，你节省了一个 cons 单元格，但你放弃了所有好的序列和列表功能。 这根本不值得。 对于完全形成的列表，您的格式化示例很简单：

(defvar *map* '((0 "zero") (1 "one") (2 "two")))
(format t "~:{~a: ~a~}" *map*)

Answer 4

我认为没有更好的方法可以做到这一点； 我会使用map()：

(format t "~{~a~%~}"
  (map 'list
    #'(lambda (entry)
      (format nil "~a: ~a" (car entry) (cdr entry))
    *map*))

Answer 5

使用将 alist 单元格 (a . 2) 转换为列表 (a 2)

(mapcar #'(lambda (x) `(,(car x) ,(cdr x))) *map*)

，然后按格式进行处理。

例如，要将 ((a . 2) (b . 3)) 打印为 "a=2&b=3"

使用

(format t "~{~{~a~^=~}~^&~}" (mapcar #'(lambda (x) `(,(car x) ,(cdr x))) *map*))