clojure - 与 pred 解散

Question

(dissoc :a m)允许我解开给定的键。但是，有没有办法使用谓词函数来解开 pred 为 true 的任何键？(dissoc-with-pred pred? m)

所以给定一张地图 -{:a 2 :b 3 :c 1 :d 4} (dissoc-with-pred (fn [[kv]] (> v 2) m)将返回{:a 2 :c 1}

Answer 1

版本 1

(defn dissoc-with-pred [f m]
  (reduce-kv (fn [res k v] 
               (if (f k v) 
                 (assoc res k v)
                 res))
             {} m))

编辑。

版本 2（由 Chouser 建议）

(defn dissoc-with-pred [f m]
  (reduce-kv (fn [m k v]
               (if (f k v)
                 m
                 (dissoc m k)))
             m m))

版本 3

(defn dissoc-with-pred [f m]
  (into {} (filter (fn [[k v]] (f k v)) m)))

测试

(dissoc-with-pred (fn [k v] (> v 2)) {:a 2 :b 3 :c 1 :d 4})
=> {:b 3, :d 4}