拉链库中的 make-node

Question

我正在尝试根据自己的地图创建拉链。根据拉链定义，

Usage: (zipper branch? children make-node root)

参数分支？孩子们很清楚，我能够定义它。但 make-node 函数令人困惑。我给了它一个我认为没有被使用的实现。

我有一张地图，

{:question "Question 1" :yes "Answer1" 
                        :no {:question "Question 2"
                             :yes "Answer2"
                             :no "Answer3"}}

我想用这张地图制作一个拉链。所以我使用了以下拉链函数调用，

(zip/zipper map? 
    (fn [node] [(:yes node) (:no node)]) 
    (fn [node children] (:question node)) 
    question-bank)

效果很好。即使给 make-node 参数 nil，它也能工作。我不明白这个参数何时何地会被使用。

Answer 1

拉链可以让你修改树，也可以在树上行走。如果您尝试向树添加新节点或修改现有节点，则会调用 make-node 函数。这有点奇怪，因为你的拉链根本没有暴露 :question 元素，但我可能会把你的拉链写成：

(zip/zipper map? (juxt :yes :no) 
                 (fn [_ [yes no]] {:yes yes :no no}) 
                 root)

我个人不太使用拉链，所以这可能不是一个正确的实现;我只是希望说明 make-node 函数应该用于创建连接到拉链的新节点。