scanner.clj

(defn sc [p]
  "Returns a function that matches data with pattern"
  (fn [data]
    (loop [d data
           c p]
      (if (seq c)
        (if (seq d)
          (if (= (first c)
                 (first d))
              (recur (rest d) (rest c))
              (recur (rest d) p))
        nil)
      d))))