0

我想在以下函数上使用R包做一些记忆memoise，将函数作为参数：

library(memoise)

func      = function(x) x
slowFunc  = function(a,f,b=2) {Sys.sleep(1); a+b}
quickFunc = memoise(slowFunc)

> system.time(slowFunc(2, func, 3))
   user  system elapsed 
      0       0       1 
> system.time(slowFunc(2, func, 3))
   user  system elapsed 
   0.00    0.00    0.99

有两个连续的调用，第二个在时间上返回 1 秒，而我本可以预料到一些瞬间的事情。

这很奇怪，但是当参数是函数时它似乎memoise不适用......函数如何在内存中表示以使其工作？

4

1 回答 1

3

您的代码不使用 memoized 函数。它调用导致 1 秒睡眠的原始函数。

如果您尝试使用，system.time(quickFunc(2, func, 3))您会发现第二次没有延迟。

memoise仅适用于 函数参数，并返回一个函数，该函数要么返回缓存值，要么调用输入函数来创建它。尽管

m<-memoise(5)

不会引发错误，尝试调用它（例如 with m(5)）将返回以下错误

Error in mm() : could not find function "f"

您只需键入即可检查函数的代码memoise。结果

function (f) 
{
    cache <- new_cache()
    memo_f <- function(...) {
        hash <- digest(list(...))
        if (cache$has_key(hash)) {
            cache$get(hash)
        }
        else {
            res <- f(...)
            cache$set(hash, res)
            res
        }
    }
    attr(memo_f, "memoised") <- TRUE
    return(memo_f)
}

显示memoise创建所有参数的哈希并将其用作内存缓存的键，即使这些是函数。

于 2015-01-21T15:57:51.943 回答