clojure - 如何创建 Clojure 拉链

Question

如何使用 Clojure Zipper ( vector-zip) 创建下图：

   A
 / | \      
B  C  D
     / \
    E   F

我努力了

(vector-zip ["A" ["B" "C" "D"["E" "F"]] ])

它返回

[["A" ["B" "C" "D" ["E" "F"]]] nil]

这样对吗？

Answer 1

是的，它是正确的。您的代码的一些测试：

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

(def zv (zip/vector-zip ["A" ["B" "C" "D"["E" "F"]]]))

(-> zv zip/next) ; => ["A" {:l [], :pnodes [["A" ["B" "C" "D" ["E" "F"]]]], :ppath nil, :r (["B" "C" "D" ["E" "F"]])}]

(-> zv zip/next zip/node) ; => "A"

(-> zv zip/next zip/next zip/next zip/node) ; => "B"

(-> zv zip/next zip/next zip/children) ; => ("B" "C" "D" ["E" "F"])