斐波那契函数

Question

我们被分配了一项任务，但我们无法弄清楚：

编写一个 R 函数，它将生成一个包含第一个 n 的向量 斐波那契数列的术语。其中的步骤如下： (a) 创建向量来存储结果。 (b) 初始化前两个元素。 (c) 运行一个循环，i 从 3 到 n，填充第 i 个元素

到目前为止的工作：

vast=function(n){
 vast=vector()
 vast[1]=1
 vast[2]=1
 for(i in 3){vast[i]=vast[i-1]+vast[i-2]}
 }

我们最终得到的只是错误：“闭包”类型的对象不是可子集的？？

我们应该如何生成想要的函数？

Answer 1

正如@bdecaf 建议的那样，我的投票是封闭式的（因为这会惹恼你的老师）：

vast = function(n) round(((5 + sqrt(5)) / 10) * (( 1 + sqrt(5)) / 2) ** (1:n - 1))

但是您可以通过两个小改动来修复已有的代码：

vast=function(n){
 vast=vector()
 vast[1]=1
 vast[2]=1
 for(i in 3:n){vast[i]=vast[i-1]+vast[i-2]}
 return(vast)
 }

我仍然会遵循已经给出的一些建议——尤其是为你的向量和函数使用不同的名称，但事实是有很多不同的方法可以实现你的目标。一方面，在这种情况下根本不需要初始化一个空向量，因为我们可以使用 R 中的for 循环来扩展向量，就像你已经在做的那样。例如，您可以执行以下操作：

vast=function(n){
  x = c(1,1)
  for(i in 3:n) x[i] = x[i-1] + x[i-2]
  return(x)
}

当然，我们都有关于编程的知识，但这就是我们来这里的原因。我们都曾在某个时候得到过某人的帮助，并且在帮助他人进步的同时也会变得更好。

更新：正如@Carl Witthoft 指出的那样，最好在已知大小时将向量初始化为适当的大小，以节省时间和空间，因此另一种方法可以实现这一点任务是：

vast=function(n) {
  x = numeric(n)
  x[1:2] = c(1,1)
  for(i in 3:n) x[i] = x[i-1] + x[i-2]
  return(x)
}