gistfile1.clj

;adds 2 children to a leaf node
(defn add-children [{x :self :as m}]
  (assoc m :cren [ {:self (inc x)} {:self (dec x)}]))

(def xroot {:self 20 :cren [ 
                            {:self 10 } 
                            {:self 30 }
                            ]})

;the nodes 10 and 30 now have 2 children: 11,9 and 31,29
(is (= '(11 9 31 29)
       (map :self (map zip/node 
                       (-> (leaf-grown add-children (mzipper xroot)) mzipper leafnodes)))))