R语言] 使用递归算法计算斐波那契数列

R语言] 使用递归算法计算斐波那契数列

斐波那契数列是一个经典的数学问题，其中每个数字是前两个数字的和。在本文中，我们将使用R语言编写递归算法来计算斐波那契数列。递归是一种函数调用自身的方法，非常适合解决这种递归定义的问题。

首先，我们定义一个函数fibonacci，该函数接受一个整数参数n，并返回斐波那契数列的第n个数字。以下是完整的代码实现：

fibonacci <- function(n) {
  if (n <= 0) {
    stop("n must be a positive integer.")
  }
  
  if (n == 1 || n == 2) {
    return(1)
  }
  
  return(fibonacci(n - 1) + fibonacci(n - 2))
}

# 测试代码
n <- 10
result <- fibonacci(n)
cat(paste("斐波那契数列的第", n, "个数字是：", result))

在上述代码中，我们首先对输入参数n进行了检查，确保它是一个正整数。如果n不满足条件，我们使用stop函数抛出一个错误。

接下来，我们处理特殊情况，当n等于1或2时，斐波那契数列的第n个数字是1。这是递归算法的基本情况。

对于其他情况，我们使用递归调用来计算第n个数字