遍歷地圖，“更改”每個值並返回地圖的慣用方式？

Question

(def m {:a 1 :b 2 :c 3})

假設我希望增加m每個值。 我能想到的唯一方法是

(into {}
      (map
        (fn [[key val]]
          [key (inc val)])
        m))

有一個更好的方法嗎？ 我需要在代碼中做很多事情，而且看起來有些怪異。 我確實確實需要在這里使用映射（主要用於O（1）查找，鍵將是UUID，值將是映射），而不是向量或列表。

Answer 1

在這里找到了看起來不錯的東西： http : //clojuredocs.org/clojure.core/reduce-kv 。

(defn update-map [m f] 
  (reduce-kv (fn [m k v] 
    (assoc m k (f v))) {} m))

那你可以做

(update-map {:a 1 :b 2} inc)

要得到

 {:a 2 :b 3}

如果需要，可以向f提供k或制作一個update-key-values函數，該函數接受兩個函數f和g並將它們分別應用於鍵和值。