如何在没有dolist的情况下在lisp中打印树,只有递归？

Question

INPUT :( A(B(D(E)(F)))(C)(K))我目前有两个函数,它给我一个OUTPUT:

一个

乙

C

ķ

乙

d

d

Ë

F

Ë

零

但是我需要这样的输出:
a:bck
b:d
c:
k:
d:ef

E:

F:

要么

一个

BSK

d

EF

(defun print-children (s)
   (cond ((null (caar (cdr s))) nil) 
         (t (print (caar (cdr s))) (print-children (cdr s)))))

(defun print-tree (s)
  (cond ((null s) nil)
        ((atom (car s)) (print (car s)) (print-children s) (print-tree (cdr s)))
        (t (print-tree (car s)))))

Answer 1

节点

您应该定义的第一件事:节点的一些数据结构函数.

• nodep 东西 - >是节点吗？
• node-name node - >返回节点的名称
• node-childrennode - >返回节点的子节点

广度优先

然后我将定义一个以广度优先顺序遍历树的函数.

• breadth-first 树 fn &optional 队列

此函数将以FN广度优先顺序调用树的所有元素.

1. 如果没有节点,则结束
2. 将第一个节点作为当前节点从队列中取出
3. 将当前节点的节点子节点推送到队列的末尾
4. FN在当前节点上调用该函数
5. 用树 fn 队列调用自己

将上面的循环写为递归函数.

打电话给BREADTH-FIRST

CL-USER 76 > (breadth-first '(A (B (D (E)
                                      (F)))
                                (C)
                                (K))
                            (lambda (node)
                              (princ (node-name node))
                              (princ ":")
                              (mapc (lambda (child)
                                      (princ (node-name child)))
                                    (node-children node))
                              (terpri)))
A:BCK
B:D
C:
K:
D:EF
E:
F: