nested filtered map

nested.clj

(defn unsaturated-diffs [cuis diffs-by-parent]
  (let [cuiset (set cuis)
        cui-in-note? (fn [cui]
                        (contains? cuiset (:cui_id cui)))
        some-fully-saturated-diff (fn [diffs]
                                    (some
                                      (fn [[_ grouped-diffs]]
                                        (every? cui-in-note? grouped-diffs))
                                      (group-by :diff__code diffs)))]
       (reduce-kv (fn [m k v]
                    (if-not (some-fully-saturated-diff v)
                      (assoc m k v)
                      m))
                  {}
                  diffs-by-parent)))