Verschachtelte Map zu Sequenz von Tupeln, die Kanten in Clojure darstellen

Question

Wie könnte man die folgende Transformation in idiomatischer Clojure ausdrücken?

(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]) 

Ich interessiere mich nicht über die Reihenfolge, in den Vektoren im Ergebnis erscheinen, also entweder zuerst in der Tiefe oder Atem ersten Suchstrategien sind in Ordnung.

Answer 1

können Sie dies ausdrücken ziemlich prägnant mit for und tree-seq:

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

Beispiel:

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