R语言】使用递归函数计算斐波那契数列

R语言】使用递归函数计算斐波那契数列

斐波那契数列是一个经典的数学问题，它的定义是：第一个和第二个数为1，之后的每个数都是前两个数之和。在本文中，我们将使用递归函数来计算斐波那契数列。

首先，我们需要定义一个递归函数，该函数将接受一个整数参数n，并返回斐波那契数列的第n个数。下面是用R语言实现的递归函数代码：

fibonacci <- function(n) {
  if (n <= 0) {
    stop("n必须大于0")
  } else if (n == 1 || n == 2) {
    return(1)
  } else {
    return(fibonacci(n - 1) + fibonacci(n - 2))
  }
}

在上面的代码中，我们首先检查参数n是否小于等于0，如果是，则抛出一个错误。接下来，我们检查n是否等于1或2，如果是，直接返回1。否则，我们使用递归调用来计算第n个斐波那契数，即将问题划分为计算第n-1个和第n-2个斐波那契数的子问题，并将它们的结果相加。

接下来，我们可以使用该函数计算斐波那契数列的任意项。例如，我们计算前10个斐波那契数的代码如下：

for (i in 1:10) {
  result <- fibonacci(i)
  cat("第", i, "个斐波那契数是：", result, "\n")
}

在上面的代码中，我们使用一个循环来迭代计算前10个斐波那契数。对于每个数字i࿰