rate-filter.clj

gistfile1.clj

(defn remove-out-of-range-rates [rates min-rate max-rate]
  (let [out-of-range? #(not (<= min-rate (:total_rate %) max-rate))
        reducer (fn [m {:keys [rates] :as item}]
                  (let [frates (remove out-of-range? rates)]
                    (if-not (empty? frates)
                      (conj m (assoc item :rates frates))
                      m)))]
    (reduce reducer [] rates)))

(remove-out-of-range-rates [{:rates [{:total_rate 10} {:total_rate 15}]}
                            {:rates [{:total_rate 12} {:total_rate 9}]}]
                           10 15)

;; =>
;; [{:rates ({:total_rate 10} {:total_rate 15})} {:rates ({:total_rate 12})}]