multi.clj

gistfile1.clj

(defmulti foo (fn [x y] (into #{} [x y])))
(defmethod foo #{::a ::b}
  [x y] "We found ::a ::b")
(defmethod foo #{::c ::d}
  [x y] "We found ::c ::d")

(comment
 (foo ::b ::a) ;; "We found ::a ::b"
 (foo ::d ::c) ;; "We found ::c ::d"
 )

(defmulti bar (fn [x y] [x y]))
(defmethod bar [::car ::car]
  [x y] "2 cars")
(derive ::porsche ::car)
(derive ::delorean ::car)

(comment
  (bar ::porsche ::delorean) ;; "2 cars"
  )