Replaces all values in a map with the results of a function

update-values.clj

(require '[clojure.walk :as walk])

(defn update-values
  "Replaces all values in a map with the results of a function"
  [m f & args]
  (let [f (fn [[k v]] (if (map? v) [k v] [k (apply f v args)]))]
    (walk/prewalk (fn [x] (if (map? x) (into {} (map f x)) x)) m)))


(update-values {:a 1 :b 1} + 10)
; => {:b 11, :a 11}

(update-values {:a 1 :b 1 :c { :d 2 :e { :f 3 :g 4 }}} str)
; => {:c {:e {:g "4", :f "3"}, :d "2"}, :b "1", :a "1"}