在clojure中，如何在嵌套地图中找到所有具有某个键的地图

Question

让m成为嵌套地图。 如何查找m中有一些关键字的所有地图。

例如：

(def m {:a {:id 5} 
     :d {:id 58} 
     :x {:id 4 :c {:id 3 :d 4}}}) 

(recursive-filter m :id) 

;; expected result: 
> ({:id 5} {:id 58} {:id 4 :c {:id 3 :d 4}} {:id 3}) 

Answer 1

的灵感来自@Symfrog：

(defn recursive-filter [m k] 
    (filter #(and (map? %) (contains? % k)) (tree-seq map? vals m))) 

Answer 2

您可以使用以下方法：

(def data {:a {:id 5} 
      :d {:id 58} 
      :x {:id 4 :c {:id 3 :d 4}}}) 

(defn recursive-filter [m f] 
    (filter #(and (map? %) (f %)) 
      (tree-seq map? vals m))) 

(recursive-filter data :id)