空孩子和 Clojure 拉链

Question

为什么最后一个表达式会重新运行

{:a :foo, :args [{:id :XX}], :id :XX}

代替：

{:a :foo, :args [], :id :XX}

(require '[clojure.zip :as zip])

(defn my-zipper [tree]
  (zip/zipper
    (fn branch? [node]
      (:args node))
    (fn children [node]
      (:args node))
    (fn make-node [node children]
      (assoc node :args (vec children)))
    tree))

(def z (my-zipper {:a :foo :args []}))

(loop [loc z]
  (if (zip/end? loc)
    (zip/node loc)
    (recur
      (zip/next 
         (zip/edit loc #(assoc % :id :XX))))))

---

看起来问题与使用 zip/next 遍历显示有 2 个节点的事实有关：

(zip/node (zip/next z))             ;  => nil
(zip/node (zip/next (zip/next z)))  ;  => {:a :foo :args []} 

这是为什么呢？有一个带有空子节点的节点，所以应该只有一个节点，对吗？

Answer 1

看了 clojure.zip/vector-zip 的代码后，我得出的结论是缺少节点的孩子应该与nil 沟通。空序列不起作用。 所以children 函数应该是：

(fn children [node]
      (seq (:args node)))