macro to define match-based functions

defmatch.clj

(ns playmatch
  (:use [clojure.core.match.core :only (match)]))


(defn len [coll]
  "calc the length of a sequence"
  (match [coll]
    [[]]       0
    [[f & r]]  (inc (len r))))

(defmacro defmatch [name bindings & patterns]
  "macro to make match-based functions"
  `(defn ~name ~bindings
     (match ~bindings
       ~@patterns)))


(defmatch len [coll]
  [[]]    0
  [[fst & rest]] (inc (len rest)))

(fact "voila!"
  (len [\a \b \c]) => 3)

;; thoughts: that binding [coll] seems a little superfluous.  With a more hairy/gnarly macro could gt rid of it, by inferring that length of each pattern's vector, and just making a vector from scratch to serve as the binding for the defn

;; That way we could just write:

(defmatch len
  [[]]    0
  [[fst & rest]] (inc (len rest))) 

(defmacro defmatch [name & patterns]
    (let [bindings (take (count (first patterns))
                          (repeatedly #(gensym "ocr-")))]
      `(defn ~name [~@bindings]
         (match [~@bindings]
           ~@patterns))))