Fibonacci 斐波那契数列的R语言实现

非递归的算法

Fibonacci <- function(n)
{
  f <- c()
  f[1] <- 1
  f[2] <- 1
  if(n == 1|n == 2)
  {
    f[n] <- f[n]
    return(f)
  }
  else
  {
    for(i in 3:n)
    {
      f[i] <- f[i-1] + f[i-2]
    }
    return(f)
  }
}
> Fibonacci(39)
 [1]        1        1        2        3        5        8       13       21       34       55       89      144      233
[14]      377      610      987     1597     2584     4181     6765    10946    17711    28657    46368    75025   121393
[27]   196418   317811   514229   832040  1346269  2178309  3524578  5702887  9227465 14930352 24157817 39088169 63245986
> Fibonacci(39)[39]
[1] 63245986

吃水不忘挖井人

Fibonacci 数列的R语言实现