gistfile1.clj

(defn compare-jobs
  [m1 m2 key]
  (loop [keys (clojure.set/intersection (set (keys m1)) (set (keys m2)))
         changed-jobs {}]
    (if (empty? keys)
      changed-jobs
      (let [name (first keys)
            status (get-in m1 [name key])
            updated-status (get-in m2 [name key])]
        (if (= status updated-status)
          (recur (rest keys) changed-jobs)
          (recur (rest keys) (conj changed-jobs (get m2 name))))))))