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))]
    (for [{r :rates :as item} rates
          :let [allowed (remove out-of-range? r)]
          :when (seq allowed)]
      (assoc item :rates allowed))))

(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})}]