帕特里克·伯恩斯（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 }})
