Funktion in Lisp, die eine Liste in einer bestimmten Art und Weise zeigt

Question

Ich brauche eine Funktion in Lisp zu machen, die eine Liste wie folgt angezeigt:

(a b (c d) (e f g) h) -> 
(a 
b 
(c 
    d) 
(e 
    f 
    g) 
h) 

Bisher gelang es mir, eine Funktion zu machen, die eine Liste wie diese zeigt .

(defun print1-lista(l) 
    (princ pard) 
    (do ((lst l (cdr lst))) 
     ((null (cdr lst)) (princ (car lst)) (princ par)) 
    (princ (car lst)) 
    (terpri))) 

    PRINT1-LISTA 
    > (print1-lista '(1 (1 2) 3 4)) 
    {1 
    (1 2) 
    3 
    4} 
    } 

Answer 1

In Common Lisp können Sie den Drucker auf viele Arten anpassen. Zum Beispiel steuern die Variablen * print-case * und * print-margin-right * den Fall, in dem Symbole gedruckt werden, und den rechten Rand, wie er vom hübschen Drucker verwendet wird. So können Sie etwas tun:

(let ((*print-case* :downcase) 
     (*print-right-margin* 2)) 
    (pprint '(a b (c d) (e f g) h))) 

zur Ausgabe wie diese:

(a 
b 
(c 
    d) 
(e 
    f 
    g) 
h) 

Answer 2

Hier ist eine schnelle und schmutzige Skizze eines solchen Systems für ziemlich Druck in PLT-Scheme

(define (deep-ppr lst depth) 
    (let ((elt (car lst))) 
    (if (list? elt) 
     (begin 
      (printf "~a(~a\n" (make-string depth #\) (car elt)) 
      (deep-ppr (cdr elt) (+ 1 depth))) 
     ;; not a list 
     (begin 
      (printf "~a~a" (make-string depth #\) elt))) 
    (if (empty? (cdr lst)) (printf ")") 
     (begin 
      (printf "\n") 
      (deep-ppr (cdr lst) depth))))) 

Welche dies ergibt. Sie können das Schema für die Einführung von Zeilenumbrüchen beliebig ändern.

sicp.rkt> (deep-pp '(1 (1 2 4) 3 4 5 6 (1 2 3 5) 7) 0) 

(1 
(1 
    2 
    4) 
3 
4 
5 
6 
(1 
    2 
    3 
    5) 
7)