在过去，请在2024 Clojure状态调查！中分享您的想法。

Question

将derefable-seed公开用于客户端实现

提问 Oct 22, 2019 在 core.memoize by John Shaffer

用例：我有这段代码，它运行得很好

(require '[clojure.core.cache :as cache])
(require '[clojure.core.memoize :as memo])
(import 'clojure.core.memoize.PluggableMemoization)

(defn lru-ttl-cache [base threshold ttl]
  (-> base
      (cache/lru-cache-factory :threshold threshold)
      (cache/ttl-cache-factory :ttl ttl)))

(defn lru-ttl-memo
  ([f base threshold ttl]
   (memo/build-memoizer
      #(PluggableMemoization. %1 (lru-ttl-cache %4 %2 %3))
      f
      threshold
      ttl
      (@#'memo/derefable-seed base))))

但它依赖于私有变量。这实际上应该是公共的，以便客户更容易提供他们自己的实现。

顺便说一句，出色的库。我喜欢在Clojure生态系统中工作。

1 答案

评论 Oct 23, 2019 by John Shaffer

这可能是个不错的想法。我写了一个辅助函数来抽象掉这些细节

   (defn build-helper [cache-factory f base & args]
     (build-memoizer
      #(PluggableMemoization. %1 (apply cache-factory %2 %3))
      f
      (derefable-seed base)
      args))

备忘实现因此变为（不含文档）

   (defn memo
     ([f] (memo f {}))
     ([f seed]
       (build-helper cache/basic-cache-factory f seed)))

我早期实现的lru-ttl-memo函数简化为

   (def lru-ttl-memo
      (partial memo/build-helper lru-ttl-cache))

这无疑极大地增加了简便性，并且与实现细节无关。

差异可参考https://github.com/john-shaffer/core.memoize/commit/669febe3af7f325de43cab82ab7d09469fd148a1

我实在不清楚您通常是怎样运行测试的。我不得不将代码链接到一个leiningen项目中，热修复它，并调用clojure.test/run-tests。

评论 Oct 23, 2019 by Sean Corfield

评论 Oct 28, 2019 by Sean Corfield

评论了 Nov 3, 2019 由 John Shaffer

评论了 Nov 3, 2019 由 Sean Corfield

评论了 Nov 3, 2019 由 John Shaffer

评论了 Nov 4, 2019 由 Sean Corfield

在过去，请在2024 Clojure状态调查！中分享您的想法。

将derefable-seed公开用于客户端实现

请登录或注册以发表评论。

请登录或注册以回答该问题。

1 答案

请登录或注册以发表评论。