使用交换！以更新Clojure(Script)原子中的映射向量

Question

我有一个原子持有一个映射向量（c2库中的示例代码）：

(def ^:export data
  (atom [{:metric "Revenue", :units "USD in thousands"
           :ranges [150 225 300], :measurements [220 270], :markers [250]}
          {:metric "Profit", :units "%"
           :ranges [20 25 30], :measurements [21 23], :markers [26]}
          {:metric "Order Size", :units "USD average"
           :ranges [350 500 600], :measurements [100 320], :markers [550]}
          {:metric "New Customers", :units "count"
           :ranges [1400 2000 2500],
           :measurements [1000 1650], :markers [2100]}
          {:metric "Satisfaction", :units "out of 5"
           :ranges [3.5 4.25 5], :measurements [3.2 4.7], :markers [4.4]}]))

我可以很容易地修改（好吧，创建一个修改过的副本），增加:markers的值，从而：

(map (fn [m] (update-in m [:markers] (fn [v]  (map inc v)))) @data)

我熟悉在大多数情况下使用swap!更新原子，但在这种情况下我能做的最好的事情是：

(defn upmark []
  (let [new (map (fn [m] (update-in m [:markers] (fn [v]  (map inc v)))) @data)]
    (vec (reset! data new))))

这显然很糟糕，因为我正在重置原子的整个状态，而不仅仅是更新我需要的部分。我只是很困惑，为什么将执行所需操作的代码应用于具有swap!的映射的普通向量如此困难。我知道swap!有一个隐含的apply，但我似乎无法正确应用fn。

Answer 1

你真的很接近。(swap!)将给定函数应用于原子中的当前值以及传递到交换中的任何附加参数。因此，您可以定义一个作用于映射向量的函数，然后使用(swap!)将其应用于原子中的值：

(def ^:export data (atom ...))
(defn upmark [data]
    (mapv (fn [m] (update-in m [:markers] (fn [v]  (mapv inc v)))) data))
(swap! data upmark)

注意，我将几个实例(map)更改为(mapv)，这样矢量就不会变成懒惰序列。