嵌套映射到表示 Clojure 中的边的元组序列

Question

如何在惯用的 Clojure 中表达以下转换？

(def m
     {:a {:b {:c nil
              :d nil}
          :e nil}})


(map->edges m) ; =>


([:a :b] [:b :c] [:b :d] [:e nil] [:d nil] [:a :e] [:e nil])

我不关心向量在结果中出现的顺序，所以深度优先或呼吸优先搜索策略都可以。

Answer 1

您可以使用 for and tree-seq:

相当简洁地表达这一点

(defn map->edges [m]
  (for [entry m
        [x m] (tree-seq some? val entry)
        y (or (keys m) [m])]
    [x y]))

示例：

(map->edges m)
;;=> ([:a :b] [:a :e] [:b :c] [:b :d] [:c nil] [:d nil] [:e nil])