从符号输入构造树

Question

我正在尝试从字符串输入中构造计划语言的树。以下是我已经尝试 -

(define travsal (lambda (tree) 
      (cond 
       ((null? tree) '()) 
       (#t (append (travsal (car tree)) (cons (cadr tree) 
(travsal (caddr tree)))))))) 

(define tree1 '(((() 4()) 2 (() 5())) 1 ((() 6()) 3 (() 7())))) 

    (display tree1) 
    (newline) 

    (travsal tree1) 

正如你可以看到它只是迭代所提供的输入，而不是做什么实际的二叉树应该做的。 对于如何使用节点和孩子从符号输入保存树来说，我感到非常震惊，例如 - （（（（）4（））2（（）5（）））1（（（）6（） ）3（（）7（）））））“然后打印出来就像上面的功能正在打印。

请帮忙，我在接受采访时被问到这个问题，仍然无法解决它。

Answer 1

你是什么意思“不做什么实际的二叉树应该做”？ 。遍历代码很好，它正在执行树的in-order traversal。一些固定格式问题：

(define travsal 
    (lambda (tree) 
    (cond ((null? tree) '()) 
      (else (append (travsal (car tree)) 
         (cons (cadr tree) 
           (travsal (caddr tree)))))))) 

现在，请记住，你所提供的树是二进制的，但不排序：

(define tree1 '(((() 4()) 2 (() 5())) 1 ((() 6()) 3 (() 7())))) 

如果我们画它，它会是这样的：

 1 
    / \ 
    2  3 
/\ / \ 
4  5 6  7 

其中，后中序遍历将正确地得到该结果使用travsal过程时：

(travsal tree1) 
=> '(4 2 5 1 6 3 7)