非递归的算法
Fibonacci <- function(n){f <- c()f[1] <- 1f[2] <- 1if(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 89144233[14]3776109871597258441816765 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语言实现