redblack.clj

gistfile1.clj

;; 220ms
(let [t (object-array [:black 
          (object-array [:red 
            (object-array [:red nil nil nil]) nil nil]) nil nil])]
 (dotimes [_ 10]
   (time
     (dotimes [_ 1e7]
       (matchv ::objects [t]
         [([:black [:red [:red _ _ _] _ _] _ _] |
           [:black [:red _ _ [:red _ _ _]] _ _] |
           [:black _ _ [:red [:red _ _ _] _ _]]])] :valid
           :else :invalid)))))