非递归的算法
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