为什么我的递归函数在R中这么慢？

为什么我的递归函数在R中这么慢？

帕特里克·伯恩斯（Patrick Burns）在R Inferno中举例说明了一种使用

local()

和进行R中记忆的方法

<<-

。实际上，这是斐波那契：

fibonacci <- local({    memo <- c(1, 1, rep(NA, 100))    f <- function(x) {        if(x == 0) return(0)        if(x < 0) return(NA)        if(x > length(memo))        stop("’x’ too big for implementation")        if(!is.na(memo[x])) return(memo[x])        ans <- f(x-2) + f(x-1)        memo[x] <<- ans        ans    }})