;; ardumont's solution to Merge with a Function
;; https://4clojure.com/problem/69

#(reduce (fn [a [k v]] (assoc a k (if (a k) (% (a k) v) v))) %2 (apply merge %&))