clojure - 将嵌套映射分解为键值对

Question

我想将 Clojure 中的嵌套映射分解为一系列键值对。例如，我们有这张 map :

{:a :b
 :c {:d {:e :f
         :g :h}
     :i :j}}

分解后的 map 应如下所示:

[[:a :b]
 [:c {:d {:e :f
          :g :h}
      :i :j}]
 [:d {:e :f
      :g :h}]
 [:e :f]
 [:g :h]
 [:i :j]]

输出的顺序并不重要。

我正在考虑使用递归函数、tree-seq 或 clojure.walk 来解决这个问题。我怀疑我可能缺少 Clojure 标准库中的某些内容。解决这个问题的最佳解决方案是什么？

Answer 1

这是一个使用tree-seq的解决方案:

(defn decompose [m]
  (mapcat (partial tree-seq (comp map? val) val) m))

这会产生一系列 MapEntry。