深度第一个树遍历积累在clojure

Question

我想采取像这样的树状结构:

{"foo" {"bar" "1" "baz" "2"}}

并且在记住来自根的路径时递归遍历以生成如下内容:

["foo/bar/1", "foo/baz/2"]

关于如何在没有拉链或clojure.walk的情况下如何做到这一点的任何建议？

Answer 1

正如nberger所做的那样,我们将枚举路径与将它们表示为字符串分开.

列举

功能

(defn paths [x]
  (if (map? x)
    (mapcat (fn [[k v]] (map #(cons k %) (paths v))) x)
    [[x]]))

...返回嵌套映射的路径序列序列.例如,

(paths {"foo" {"bar" "1", "baz" "2"}})
;(("foo" "bar" "1") ("foo" "baz" "2"))

介绍

功能

#(clojure.string/join \/ %)

...将字符串与"/"连接在一起.例如,

(#(clojure.string/join \/ %) (list "foo" "bar" "1"))
;"foo/bar/1"

撰写这些以获得您想要的功能:

(def traverse (comp (partial map #(clojure.string/join \/ %)) paths))

......或者干脆

(defn traverse [x]
  (->> x
      paths
      (map #(clojure.string/join \/ %))))

例如,

(traverse  {"foo" {"bar" "1", "baz" "2"}})
;("foo/bar/1" "foo/baz/2")