6.2 设计一个持久化玩具

第6章 惰性与不变性

6.2 设计一个持久化玩具

1. 实现一颗二叉排序树（Binary Sort Tree）

(defn 创建 [t v]
  "创建一颗二叉排序树（Binary Sort Tree）"
  (cond (nil? t)       {:v v, :l nil, :r nil}
        (< v (:v t))   {:v (:v t), :l (创建 (:l t) v), :r nil}
        :else          {:v (:v t), :l (:l t), :r (创建 (:r t) v)}

  ))

(def tree1 (创建 nil 5))
tree1 ;=> {:v 5, :l nil, :r nil}

(def tree1 (创建 tree1 3))
tree1 ;=> {:v 5, :l {:v 3, :l nil, :r nil}, :r nil}

(def tree1 (创建 tree1 2))
tree1 ;=> {:v 5, :l {:v 3, :l {:v 2, :l nil, :r nil}, :r nil}, :r nil}, :r nil}

1. 遍历二叉排序树

(defn 遍历 [t]
  (when t (concat (遍历 (:l t)) [(:v t)] (遍历 (:r t)))))

(遍历 tree1) ;=> (2 3 5)