r - 我如何理解这个R函数？

Question

mfibR <- local({
    memo <- c(1, 1, rep(NA, 1000))
    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
    }
})

它没有函数体，但它实际上正确地返回了斐波那契数列。

Answer 1

来自 ?local帮助页面。

local evaluates an expression in a local environment. It is equivalent to evalq except that its default argument creates a new, empty environment. This is useful to create anonymous recursive functions and as a kind of limited namespace feature since variables defined in the environment are not visible from the outside.

请仔细阅读 local 的帮助页面中的示例。功能。它展示了如何使用 local 来创建匿名函数。 local将返回最后计算的表达式。