R语言递归二分法函数未达预期行为问题排查

你的递归二分函数存在两个关键问题，导致它提前终止：

1. 错误地在递归函数中加入while循环 #

递归本身就是通过函数调用实现循环逻辑，不需要额外的while循环。你当前的递归函数里，while循环每次仅执行一次就会触发return退出函数，逻辑冗余且容易引发误解，甚至可能因为栈帧累积的问题（尽管这里次数不多）导致意外行为。

2. 递归调用未显式传递epsilon参数 #

虽然函数定义中epsilon默认值为0，但显式传递参数能避免潜在的作用域问题，确保每一层递归都使用相同的终止条件。

修正后的递归函数 #

bisect_recur <- function(x, epsilon = 0) {
  # 终止条件：当x小于等于epsilon时返回x
  if (x <= epsilon) {
    return(x)
  }
  # 二分操作并打印
  cat(x/2, "\n")
  # 递归调用，显式传递epsilon参数
  bisect_recur(x/2, epsilon)
}

验证效果 #

调用修正后的函数：

N <- 100
tictoc::tic()
bisect_recur(N)
tictoc::toc()

它会和bisectwhile函数一样，持续二分直到x下溢为0，不会提前终止。

关于递归效率的补充 #

需要注意的是，递归版本的效率通常会低于while循环版本，因为每次递归调用都会创建新的函数栈帧，带来额外的开销。如果你的核心需求是对比效率，递归版本在大量迭代场景下的表现会明显弱于循环版本。

内容的提问来源于stack exchange，提问作者Yann peacelover