fizzbuzz in Clojure (multimethod版)

fizzbuzz-multimethod.clj

;; ディスパッチ関数
(defn fizzbuzz-dispatch-fn [n] [(zero? (mod n 3)) (zero? (mod n 5))])

;; マルチメソッドの定義(マッチングめちゃ強力!)
(defmulti fizzbuzz fizzbuzz-dispatch-fn)
(defmethod fizzbuzz [true false] [n] "fizz")
(defmethod fizzbuzz [false true] [n] "buzz")
(defmethod fizzbuzz [true true] [n] "fizzbuzz")
(defmethod fizzbuzz :default [n] n)

(defn run-fizzbuzz [n] (->> (range 1 n) (map fizzbuzz)))

;; (run-fizzbuzz 16)
;; => (1 2 "fizz" 4 "buzz" "fizz" 7 8 "fizz" "buzz" 11 "fizz" 13 14 "fizzbuzz")