seqex - a tiny pattern matcher in Clojure

match.clj

(ns seqex.match)

(defn cps [funct cont]
  (fn [[f & r :as s]]
    (if (funct f)
      (cont r)
      false)))

(defn literal [l cont]
  (cps (partial = l) cont))

(defn _ [cont]
  (cps (constantly true) cont))

(defn other [funct _] funct)

(defmacro match
  ([form]
   (if (seq? form)
     `(~@form nil?)
     `(~form nil?)))
  ([form & forms]
   (if (seq? form)
     `(~@form (match ~@forms))
     `(~form (match ~@forms)))))

(defmacro coll [& forms]
  `(cps #(and (coll? %)
              ((match ~@(drop-last forms)) %))
        ~(last forms)))

test.clj

((match
  (literal 1)
  (coll (literal 3)
        (other #(every? even? %)))
  _
  (literal 3))
 [1 [3 4 2] 2 3])
; true

((literal 1 (literal 2 (literal 3 nil?))) [1 2 3])
; true