Question

如果我使用Clojure原子来计算某些东西（例如投票），我可以这样做：

(def votes (atom {}))

(defn vote! [candidate]
  (swap! votes update-in [candidate] (fnil inc 0)))

(vote! "Abraham Lincoln")
(vote! "Abraham Lincoln")
(vote! "Winston Churchill")

votes ;=> {"Abraham Lincoln" 2, "Winston Churchill" 2}

在这里，update-in整齐地转换给定键的值，而不必先查找它。

我如何在Datomic中完成相同的工作？我可以做这样的事......

(defn vote! [db candidate]
   (let [[e v] (first (q '[:find ?e ?v 
                           :in $ ?candidate 
                           :where [[?e :name ?candidate]
                                   [?e :votes ?v]] db candidate)
     (transact! conn [{:db/id e :votes (inc v)}]))

但它似乎有点麻烦，必须运行查询，返回值，然后使用新值进行交易。是否有更惯用的方法（如swap!或update-in）？

Answer 1

对我来说，记录投票的事实似乎最惯用，然后在想知道总数时进行计数查询。根据您的应用程序的需要，这种方法支持诸如检查双倍投票，投票变更/撤回，过去24小时内的计数，......

习惯做交换的方法！或使用Datomic更新

1 个答案: