记住承诺是否明智？

Question

我正在使用 HTTP Kit 发出请求，我希望它们是异步的，但我也想缓存响应。我希望请求是异步的的原因是我正在同时发出几个请求并且我希望它们并行运行。

这是我的函数，它同时发出多个请求。

(defn parallel-requests-1 [urls]
  (let [; Dispatch all requests to run concurrently.
        responses (doall (map #(http/get %) urls))
        ; Realise all promises.
        realised (doall (map deref responses))
        ; Extract response body.
        bodies (map :body realised)]
    bodies))

(parallel-requests-1 ["http://example.com", "http://example.net"])

这纯粹是为了说明目的，以证明我不想只是 deref 承诺并记住它。

现在我想使用memoize 添加缓存。我试过这个：

(def memoized-get (memoize http/get))

(defn parallel-requests-2 [urls]
  (let [; Dispatch all requests to run concurrently.
        responses (doall (map #(memoized-get %) urls))
        ; Realise all promises.
        realised (doall (map deref responses))
        ; Extract response body.
        bodies (map :body realised)]
    bodies))

所有迹象都表明这很有效。

这是一个明智的解决方案吗？我担心缓存承诺可能会造成某种资源泄漏。

Answer 1

是的，记住一个承诺是明智的。事实上，在这种情况下，这可能是最明智的解决方案。毕竟，这就是http/get 返回的，这就是你要记忆的函数。

就资源泄漏而言，无论您记住承诺还是它的价值，这都不是问题。一个promise 基本上只是一些在deliver!ed 后引用值的状态。因此，您对这个参考有一点点开销，但与整个响应相比，它是微不足道的。