macro.clj

(defmacro pattern
  [n predecessor]
  (vec
    (concat (repeat n '_)
            predecessor
            '(& r))))

(defmacro my-match
  [state predecessor]
  (let [diff (- (count state)
                (count predecessor))]
    (conj (concat
            (apply concat
                   (for [i (range (inc diff))]
                     (list [(list (list 'pattern i predecessor) :seq)] 'true)))
            '(:else nil))
          [state]
          'match)))