1

我想用来clojure.zip遍历这棵树并打印节点及其父节点。我很难找到父母。例如:eis的父级:b。 

;;
;;     :a
;;     / \
;;   :b  :c
;;   /\    \
;; :d :e   :f
;;
(def example [:a [:b [:d] [:e]] [:c [:f]]])
(def z (zip/vector-zip example))
(def locs (take-while (complement zip/end?) (iterate zip/next z)))

(defn parent-of [loc]
  (when-let [parent-loc (-> loc zip/up zip/left)]
    (zip/node parent-loc)))

(defn visit-all []
  (doseq [loc locs]
    (let [node (zip/node loc)]
      (when (keyword? node)
        (println node "has parent" (parent-of loc))))))

这是结果：

:a has parent nil
:b has parent :a
:d has parent :b
:e has parent [:d]
:c has parent [:b [:d] [:e]]
:f has parent :c

我可以继续改进这个parent-of功能——我的下一个想法是去最左边的节点。将会有一个算法可以从所有位置返回正确的答案 - 但是，以这种方式进行似乎对于一个共同的要求来说是相当多的工作。

我应该采取更好的方法吗？

编辑 这个问题不是关于clojure.walkor Spector。我正在寻找一个答案，它使用clojure.zip并给出我在问题中定义的父级，这只是loc. 所以如果loc给定的parent-of是:f我希望它返回:c。

如果有人可以告诉我，作为评论，拉链不再真正使用，并且说clojure.walk或者Spector是当前用于导航树木的最佳实践方式，那么这将有所帮助。

4

2 回答 2

2

你为什么用zip/left？节点的父节点正是它上面的节点，而不是它上面的节点，出于某种原因在左边。删除它就是您需要做的所有事情。

于 2016-09-02T15:32:06.567 回答
0

这是我自己的答案：

(defn parent-of [loc]
  (when-let [parent-loc (-> loc zip/up zip/up first)]
    (zip/node parent-loc)))

它在所有情况下都给出正确的输出：

:a has parent nil
:b has parent :a
:d has parent :b
:e has parent :b
:c has parent :a
:f has parent :c
于 2016-09-02T21:39:31.983 回答