more specs.
This commit is contained in:
@@ -1,11 +1,9 @@
|
||||
(ns auto-ap.parse
|
||||
(:require [clojure.java.io :as io]
|
||||
[clojure.string :as str]
|
||||
[clojure.java.shell :as sh]
|
||||
[auto-ap.parse.excel :as excel]
|
||||
(:require [auto-ap.parse.excel :as excel]
|
||||
[auto-ap.parse.templates :as t]
|
||||
[clj-fuzzy.metrics :as m]
|
||||
))
|
||||
[clojure.java.shell :as sh]
|
||||
[clojure.string :as str]))
|
||||
|
||||
|
||||
|
||||
@@ -54,6 +52,7 @@
|
||||
(excel/parse-file file filename))
|
||||
|
||||
(defn best-match [companies company-identifier]
|
||||
(println companies)
|
||||
(->> companies
|
||||
(map (fn [company]
|
||||
[company (apply min (map #(m/jaccard (.toLowerCase company-identifier) %) (:matches company)))]))
|
||||
|
||||
Reference in New Issue
Block a user