Fibonacci 数列的R语言实现

#time is slow，用递归来写，直观，但是时间太慢
Fibonacci <- function(n)
{
  if(n == 1|n == 2)
  {
    return(1)
  }
  else
  {
    return(Fibonacci(n-1) + Fibonacci(n - 2))
  }
}
Fibonacci(11)

#非递归的算法

Fibonacci <- function(n)
{
  f1 <- 1
  f2 <- 1
  if(n == 1|n == 2)
  {
    return(f2)
  }
  else
  {
    for(i in 3:n)
    {
      temp1 <- f2
      f2 <- f1 + f2
      f1 <- temp1
    }
    return(f2)
  }
}
Fibonacci(39)