映射到树中的向量

Question

我有一个具有以下结构的集合 [{:a 0} {:b 1} {:c 1} {:d 2} {:e 3} {:f 2}]。基本上，它是一棵树，其中向量的一个元素是一个节点。数字表示的是父子关系。因此，元素 {:a 0} 是主父元素（没有父元素），而 {:b 1}、{:c 1} 是 {:a 0} 的子元素。此外，{:d 2} 是 {:c 1} 的子代。

我想要的是构造一个具有以下结构的列表或向量（此时无关紧要）： [{:a {:b nil :c {:d {:e nil} :f nil}}}]。

如何做到这一点？

Answer 1

这应该可行：

(fn [xs]
  (loop [[x & rs :as xs] xs
         m   {}
         lvl {}]
    (if (seq xs)
      (let [[k l] (first x)
            p (conj (lvl (dec l) []) k)]
        (recur
          rs
          (assoc-in m p nil)
          (assoc lvl l p)))
      m)))

正如@jas 提到的，我们不能依赖映射的键顺序，所以这里我们使用lvl 映射来保持每个级别最后看到的元素的路径。