redblacknew.cljs

gistfile1.clj

(defn balance [node]
  (match [node]
    [( [:black [:red [:red a x b] y c] z d]
     | [:black [:red a x [:red b y c]] z d]
     | [:black a x [:red [:red b y c] z d]]
     | [:black a x [:red b y [:red c z d]]] 
     )] 
        [:red [:black a x b] y [:black c z d]]
    :else 
        node))