Wie kann ich eine Alist in Common Lisp formatieren?

Question

Ich fange gerade an, mir etwas Common Lisp zu schreiben und bekomme gerade den Dreh raus, wie man Dinge zusammenfügt und formatiert.

Nehmen wir an, ich habe eine Liste, etwa diese:

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

Wie kann ich es so formatieren?

0: zero
1: one
2: two

Ich dachte an etwas wie (format t "~{~{~a: ~a~}~%~}" *map*) , aber das führt zu einem Fehler, weil "zero" keine Liste ist und man das Auto nicht daraus nehmen kann.

Natürlich ist das (format t "~{~a~%~}" *map*) druckt

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

wie es sein soll, aber es ist nicht ganz das, was ich will. Gibt es einen besseren Weg, dies zu tun als nur (dolist (entry *mapping*) (format t "~a: ~a~%" (car entry) (cdr entry))) ?

Answer 1

Der #cl-gardeners-Kanal auf Freenode schlägt vor, eine destrukturierende Schleifenbindung wie diese durchzuführen:

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

Answer 2

Sie haben Recht, es sieht nicht so aus, als gäbe es eine Möglichkeit, eine Cons-Zelle von FORMAT zu trennen.

Wenn Sie eine andere Funktion definieren, um eine einzelne Assoziation zu formatieren:

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

dann ist es ganz einfach:

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

Ich bin mir nicht sicher, ob das eine Verbesserung ist oder nicht. Einerseits ist es ein wenig komplexer, aber andererseits wird print-assoc in eine (wiederverwendbare) Funktion umgewandelt, was nützlich sein könnte.

Answer 3

Ich denke, die Lektion, die man hier mitnehmen kann, ist, dass man keine gepunkteten Listen für seine Listen verwenden sollte. Sie sparen eine Zelle, sicher, aber Sie geben alle netten Sequenz- und Listenfunktionen auf. Das ist es einfach nicht wert. Ihre Formatierung Beispiel ist trivial mit voll ausgebildeten Listen:

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

Answer 4

Ich glaube nicht, dass es einen besseren Weg gibt, es zu tun; ich würde die map() :

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

Answer 5

Konvertieren Sie die Zellen der Liste (a . 2) auflisten (a 2) mit

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

und dann im Format verarbeiten.

Zum Beispiel, um zu drucken ((a . 2) (b . 3)) como "a=2&b=3"

verwenden.

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