Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defmulti depth-comp (fn [a b] [(type a) (type b)]))
(defmethod depth-comp [::Point ::Edge] [p e]
(< (min-depth p) (min-depth e)))
(defmethod depth-comp [::Edge ::Point] [e p]
(< (min-depth p) (min-depth e)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.