用例:我有这样一段很好用的代码
(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生态系统中工作。