从符号输入构造树

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)