Carte imbriquée à la séquence de tuples représentant les bords dans Clojure

Question

Comment pourrait-on s'exprimer dans la transformation idiomatique de 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]) 

Je ne me soucie pas de l'ordre dans lequel les vecteurs apparaissent dans le résultat, de sorte que soit la profondeur première ou à couper le souffle premières stratégies de recherche sont très bien.

Answer 1

Vous pouvez exprimer en utilisant assez de façon concise for et tree-seq:

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

Exemple:

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