Clojure Multimethods

multimethods.clj

(defmulti even-odd 
  (fn [i] 
    (if (= 0 (mod i 2))
      :even
      :odd)))

(defmethod even-odd :even
  [i]
  (println "Even " i))


(defmethod even-odd :odd
  [i]
  (println "Odd " i))

(even-odd i)

(even-odd 1)
;; Odd  1
;; => nil

(even-odd 2)
;; Even  2
;; => nil

(even-odd 3)
;; Odd  3