elastic.clj

(ns org.kirelabs.classifijure.elastic
  (:use
     [clojure.test]
     [incanter.core])
  )

(defn match-elastic
  [sequence other measure] 
  (let [measure (memoize measure)]
    (letfn [(match
              [sequence other]
              (cond
                (empty? (rest sequence))
                (reduce + (map #(measure (first sequence) %) other))
                (empty? (rest other))
                (reduce + (map #(measure % (first other)) sequence))
                :else (+ (measure (first sequence) (first other))
                         (min (match sequence (rest other))
                              (match (rest sequence) other)
                              (match (rest sequence) (rest other))))
                )
              )]
      (let [match (memoize match)]
        (match sequence other)
        )
      )
    )
  )