All data on checks are now set up.

This commit is contained in:
Bryce Covert
2018-05-17 20:06:46 -07:00
parent e055a1e120
commit 03dd882da4
8 changed files with 79 additions and 32 deletions

View File

@@ -71,7 +71,7 @@
(println companies)
(->> companies
(map (fn [company]
(if-let [matches (:matches (:data company))]
(if-let [matches (:matches company)]
[company (apply min (map #(m/jaccard (.toLowerCase company-identifier) %) matches))]
[company 1])))
(filter #(< (second %) 0.25))