LISP逐级显示二叉树
首先，我们需要了解LISP是什么。LISP（列表处理器）是一种通用的计算机语言，它是一种函数式编程语言，由John McCarthy于1959年发明。LISP的语法非常灵活，可以表示各种复杂的数据结构，如树、图等。
在LISP中，二叉树是一种常见的数据结构，可以用来表示各种层次关系的数据。逐级显示二叉树是指按照一定的顺序遍历二叉树的节点，并将其显示出来。
在LISP中，可以使用递归函数来实现逐级显示二叉树的功能。具体来说，可以定义一个递归函数，该函数接受一个二叉树节点作为参数，并递归地处理该节点的左右子树。在处理每个节点时，可以将该节点的值输出到屏幕上，以便观察和分析。
以下是一个简单的LISP代码示例，用于逐级显示二叉树：
(defun display-tree (tree)
(if tree
(progn
(format t "~A " (car tree))
(display-tree (cadr tree))
(display-tree (caddr tree)))))在这个示例中，display-tree函数接受一个二叉树节点作为参数。如果该节点存在，则输出该节点的值，并递归地处理该节点的左右子树。
需要注意的是，LISP中的二叉树节点通常表示为一个列表，其中第一个元素是节点的值，第二个元素是左子树，第三个元素是右子树。因此，在处理节点时，需要使用car和cdr等函数来获取节点的值和子树。
总之，LISP是一种非常适合处理二叉树的编程语言，可以使用递归函数来实现逐级显示二叉树的功能。
相关·内容
3回答
从Lisp中的递归返回零
lisp
我正在研究一本书中的一个问题，我有一棵二叉树，我需要检查左右子树上所有原子的和是否相等，如果不是，返回零。我成功地在两个函数中完成了这个任务，但是当我尝试在一个函数中执行它时，我会得到一个错误，因为它试图将一个数字添加到零。
代码是
(defun foo (list)
(cond ((null list) 0)
((atom list) list)
((/= (foo (cadr list))
(foo (caddr list))) nil)
( T (+ (foo (car list))
浏览 2提问于2017-03-25得票数 0
回答已采纳
1回答
在SML中使用二叉树的帮助
function、functional-programming、binary-tree、sml、smlnj
我是SML的新手，在使用下面的二叉树实现时需要一些帮助。
datatype tree = NODE of int * tree * tree | LEAF of int;
我看到树是由具有两个子树的节点或具有整数的叶子定义的。
如何访问子树，以便确定最大值、最小值以及元素是否存在于树中？
访问左子树和右子树的过程是什么？
浏览 1提问于2019-10-22得票数 1
1回答
邻接二叉树
ocaml
我正在写一个函数，它接受两个二叉树(t1和t2)，并生成一个新的树，将t2放在t1的右下角。t2附加到右子节点为空的第一个节点，即使该节点不是叶节点也是如此。
let rec adjoin_right (t1: 'a tree) (t2: 'a tree) : 'a tree
测试用例：
let test () : bool =
adjoin_right (Node (Empty, 1, Empty)) (Node (Empty, 2, Empty)) =
Node(Empty, 1, Node (Empty, 2, Empty))
;; run_test "
浏览 0提问于2013-02-02得票数 1
回答已采纳
1回答
显示二叉树的无序遍历
scheme、racket
我想要列出一个列表，显示二叉树的无序遍历。这是我的代码：
(define btree
'(1 (2 (4 (7 #f #f) #f) (5 #f #f)) (3 (6 (8 #f #f) (9 #f #f)) #f)))
(define res '())
(define (inorder tree)
(let loop ([t tree])
(cond (t (loop (cadr t)) (cons (car t) res) (loop (caddr t)))
(else res))))
(inorder btree '())
re
浏览 0提问于2016-03-14得票数 0
回答已采纳
1回答
bst方案-删除-最大值
list、tree、scheme、binary-tree、binary-search-tree
我必须创建一个函数bst-delete-max，它接受一个二叉树作为参数，并返回一个二叉树搜索树，其中的节点包含从树中删除的最大值。我不能使用任何帮助函数找到最大值(Bst)或帮助函数来删除节点(Bst)。因此，我完全不知道如何处理这个问题，以及如何为这个问题做任何事情。我知道在任何时候我都会使用bst，我只需要编写函数来找到最大的最大值。但我该怎么删除呢？任何帮助都将不胜感激。到目前为止，我的情况如下：
(define (remove-max bs-tree)
(cond ((null? bs-tree)
'())
((null? (bst-right bs-
浏览 4提问于2015-11-02得票数 0
回答已采纳
1回答
如何检查二叉树是否完成
haskell
如果每个节点的两个子树是相同大小的，则二叉树是完整的。定义一个决定二叉树是否完成的函数。
我不知道如何编写下一个代码，我认为它是Leaf a == Node a，然后输出一个布尔值。
我的Haskell代码如下所示：
data Tree a = Leaf a | Node a [Tree a]
judcomplete :: Tree a -> Tree a -> Bool
judcomplete (Leaf x) (Node y (Leaf z)) = Leaf x == Node y (Leaf z)
浏览 1提问于2021-10-11得票数 0
回答已采纳
1回答
在二叉树中寻找最大元素
java、search、recursion、tree、binary-tree
我真的很困惑在binary tree中找到一个元素。
问题:当我们说，在二叉树中搜索一个元素，在这种情况下是最大的，我们假设树是排序的吗？
如果不是，请看下面的代码，我是从一本书中得到的，几乎每个在线url都在建议类似的模式。
int FindMaxNmb(BinaryTreeNode root)
{
int root_val,left,right,max;
if(root!=null)
{
root_val = root.getData();
//recursion - this is
浏览 3提问于2014-02-08得票数 4
回答已采纳
3回答
Java -平衡二叉树与“布鲁特力量”
java、algorithm、recursion、tree、binary-search-tree
我试图用Java编写一个平衡二叉树的方法，描述如下：
..。将树的无序遍历写入数组，然后使用递归方法(类似于二进制搜索)插入数组的中间元素作为根，然后构建平衡的左右子树。
然而，我很困惑如何一起做这一切。到目前为止，我已经尝试过各种方法，但都没有效果。
我也已经有了一个inOrder迭代器，它返回树中所有元素的ArrayList，因此将讨论这个问题。
这是我目前正在建立的：
public void rebalance()
{
Iterator<T> it = iteratorInOrder();
List<T> list = new ArrayL
浏览 1提问于2016-03-19得票数 0
回答已采纳
1回答
构建二叉树的LISP函数不起作用，我不明白为什么
lisp、common-lisp
(defun leftorright (element tree)
(cond ((null (car tree))
(setf tree
(cons element (cons (cons NIL NIL) (cons NIL NIL)))))
((>= element (car tree))
(if (null (caddr tree))
(setf (cddr tree)
(cons element (cons (cons NIL
浏览 5提问于2022-10-14得票数 0
2回答
写入递归函数
algorithms、recursion
我在编写与树相关的递归函数时遇到了很多困难。我不能仅仅使用谷歌的这些功能，因为他们不是一般的，我将不能使用谷歌在考试设置！
有什么“诀窍”可以成功地为递归函数提出算法/编写psuedocode吗？我有什么办法可以考虑/处理这个问题吗？
示例:编写一个递归函数，该函数确定给定的二叉树是否具有与有效的AVL树一致的结构。
预期解决办法：
template <typename Type>
bool is_avl (const Binary_node<Type> * tree) {
if (tree == NULL) {
return true;
浏览 0提问于2012-02-22得票数 6
回答已采纳
2回答
在二叉树中，对于每个节点，左边和右边的节点数之间的差
algorithm、time-complexity
在二叉树中，对于每个节点，左右子树中的节点数之差最多为2。如果树的高度为h>0，则树中的最小节点数为。 我的理解是:该树中的总节点= no.of左子树节点+ no.of右子树节点+1(根节点) = no.of左子树节点+( no.of左子树节点-2)+1 = no.of左子树节点+ no.of左子树节点-2+1 =2* no.of左子树节点-1 H(n) = 2* H (n-1)-1这里我用代换解决了它，但当我把h(0)=1时，它只给出了1作为答案，而不是H。你能帮我解释一下为什么我不能把h(0)=1作为我的基本条件，因为它也满足给定的二叉树。
浏览 43提问于2020-04-23得票数 0
回答已采纳
1回答
前序二分查找树插入
c、binary-search-tree、insertion、preorder
一个令人痛苦的愚蠢的问题，我几乎羞于启齿地问。我在过去的4个小时里一直在搜索，测试了不同的算法，在纸上尝试了相当多的时间，仍然不能让它工作。
我将省去项目实现的细节，但基本的问题是：“如何处理在预排序二叉树中插入节点。
通过预排序BST，我的意思是所有节点都应该以这样的方式插入，即使用预排序遍历树(例如打印)应该以升序打印节点。
我只需要一个简单的算法。我尝试了这里给出的一个简单的插入算法(在stackoverflow上，但它似乎不正确(也在纸上尝试过))；。
这些节点基本上类似于：
typedef struct testNode{
int key;
struct testNo
浏览 0提问于2012-12-18得票数 3
回答已采纳
2回答
运行时间以检查二叉树是否是另一棵二叉树的子树
algorithm、recursion、tree、asymptotic-complexity
我遇到了一个，用于检查二叉树是否是另一个二叉树的子树：
给定两个二叉树，检查第一棵树是否是第二棵树的子树。树T的子树是由T中的一个节点及其所有的后代组成的树S，对应于根节点的子树是整棵树，对应于任何其他节点的子树称为一个适当的子树。
例如，在以下情况下，树S是树T的子树：
Tree 2
10
/ \
4 6
\
30
Tree 1
26
/ \
10 3
/ \ \
4 6 3
\
30
解决方案是
浏览 0提问于2016-08-28得票数 1
回答已采纳
11回答
二叉树中的递归函数解释
c++、c、binary-tree
我正在看二叉树的教程。
而且我在使用递归函数时有点卡住了。例如，我需要计算树中的节点数
int countNodes( TreeNode *root )
{
// Count the nodes in the binary tree to which
// root points, and return the answer.
if ( root == NULL )
return 0; // The tree is empty. It contains no nodes.
else
{
浏览 1提问于2011-10-23得票数 4
回答已采纳
1回答
查找树中最深的节点(Lisp)
tree、lisp、common-lisp、tree-traversal、postorder
我想要以lisp的形式遍历一棵树，并以列表的形式使用一棵树来寻找最深(或距离根节点最远)。到目前为止，我的想法是继续将树切割成左右的子树(假设父节点只有两个儿子，比如二叉树)，我将在下面发布我的代码，因为尽管它编译了，但它给了我一个错误，即0不是一个真正的类型。任何建议都是很棒的，甚至是对代码的改进！
在查找节点之间的路径方面，我也看到过类似的问题，但在如何将最深节点实际打印到屏幕上方面，我并没有看到任何有用的信息。
谢谢你找我。
(defun postorder(tree)
(cond ((null tree) 0)
((< (list-length tree) 3) 0)
浏览 1提问于2015-03-03得票数 0
回答已采纳
1回答
Prolog逻辑编程二叉树谓词
prolog
我完全是逻辑编程和Prolog的初学者，所以问题是我试图用Prolog实现一个二叉树，我是这样做的：
tree(-).
tree(n(X,L,R)):- tree(L), tree(R).
现在我需要实现以下谓词
count(X,Tree,Res).，它应该计算X在传递的树中被给定的次数，并在Res.中返回。
sum(Tree, Sum).，如果是数值，则返回传递的树中所有节点的总和。我对这个的想法是这样的：
treeSum([],0).
treeSum(tree(X,T1,T2), S) :-
treeSum(T1,S1),
treeSum(T2,S2),
S is X
浏览 0提问于2020-01-10得票数 1
1回答
方案中的树排序函数
sorting、tree、scheme、racket
我和这个问题斗争了两天多了，但不知怎么我还是无法解决它。我必须按照方案编写一个函数，该函数在树中获取一个列表，并按排序顺序显示项。
我定义树的方式是‘6(左.)(右.)
我选择一棵树的功能：
(define (tree-sort tree)
(cond ((null? tree) '())
((> (car tree) (cadr tree))
(tree-sort (cadr tree)))
(else
(tree-sort (caddr tree))))
)
所以，我想我也应该有一个函数，排序最深入的列表？我真的不明白，这是我最后一次不
浏览 6提问于2013-11-20得票数 1
5回答
二分搜索树
python、algorithm、binary-tree、binary-search-tree
这是维基百科上关于BST的一些代码：
# 'node' refers to the parent-node in this case
def search_binary_tree(node, key):
if node is None:
return None # key not found
if key < node.key:
return search_binary_tree(node.leftChild, key)
elif key > node.key:
return s
浏览 5提问于2010-09-07得票数 5
回答已采纳
1回答
类型系统代数-派生的使用
types、type-theory
我记得有一个网页描述了一些与函数式编程任务相关的有趣技术。问题是我不记得那是什么了。
它以二叉树节点(Tree left, Tree right, Data d)为例，可以将其描述为Tree*Tree*Data或Tree^2*Data。然后，当以Tree为例进行推导时，我们得到2*Tree*Data。
你能告诉我这是用来做什么的吗？
浏览 1提问于2011-05-19得票数 1
回答已采纳
1回答
二叉树插入节点过程不按要求工作(方案)
scheme、lisp、binary-tree、binary-search-tree
我实现了一个在二叉树中插入节点的函数。
树节点是表单(left-node key right-node)的列表。
(insert tree n)是我的插入节点函数，其中树是二进制搜索树中的树节点列表，我希望将键值n作为新节点添加。
因此，(insert '(((() 4 ()) 5 (() 2 ())) 6 ()) 7)给出的输出如下
(((() 4 ()) 5 (() 2 ())) 6 (() 7 ()))。
现在，我想做的是这样的事情：
1。定义一个值列表。(define (f) (list '1 `2 `3 `4 `5 ))
2。循环遍历列表，从空树开始，在树中逐个输入值
浏览 1提问于2019-04-15得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
