Clojureのエッジを表すタプルのシーケンスへのネストされたマップ

Question

慣用のClojureで次の変換を表現するにはどうすればよいですか？

結果にベクトルが表示される順序は気にしないので、深度優先または息吹き検索のどちらの方法も問題ありません。

Answer 1

あなたはかなり簡潔forと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])