list - lisp 中以特定方式显示列表的函数

Question

我需要在 lisp 中创建一个函数来显示如下列表:

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

到目前为止，我设法制作了一个显示这样的列表的函数。

(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

在 Common Lisp 中，您可以通过多种方式自定义打印机。例如，变量 *print-case* 和 *print-margin-right* 将控制符号打印的大小写，以及右边距 pretty-print 。因此你可以这样做:

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

得到这样的输出:

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