我正在练习递归,并试图从链表中实现BST。 我试图将解决方案从这里转换为R: Create Balanced Binary Search Tree from Sorted linked list
给定一个向量vec
我想找到BST,例如:
0
/ \
-3 9
/ /
-10 5
vec <- c(-10,-3,0,5,9)
这是我尝试以递归方式解决此问题,但它不起作用:
tobt <- function(vec, start, end) {
if (start > end) return(NA)
mid <- start + (end - start) / 2
left <- tobt(vec, start, mid-1)
right <- tobt(vec, mid+1, end)
return(c(left, right))
}
tobt(vec, 1, 5)
我的错误在哪里?
答案 0 :(得分:3)
您需要使用允许构建树的结构,例如list
。第二个问题是忽略了用数字填充树节点的父。
您的功能的可能变体:
tobt <- function(vec, start, end) {
if (start > end) return(NULL)
mid <- start + (end - start) %/% 2
left <- tobt(vec, start, mid-1)
parent <- vec[mid]
right <- tobt(vec, mid+1, end)
return(list(left=left, node = parent, right=right))
}