gistfile1.txt

(defn update-in-many 
  "like update-in, but can call f on multiple values. If keyseq contains :*, will recurse on every item in the 'current' value. Returns the updated structure"
  [ds [k & ks] f & args]
  
  (if (= k :*)
    (if ks
      (map-same (fn [x] (apply update-in-many x ks f args)) ds)
      (map-same f ds))
    (if ks
      (assoc ds k (apply update-in-many (get ds k) ks f args))
      (assoc ds k (apply f (get ds k) args)))))