在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)