notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Switched similaity index

Browse Source
This commit is contained in:
Bryce Covert
2022-01-22 07:39:16 -08:00
parent a50df489d8
commit 6f4a499d17
1 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/clj/auto_ap/parse.clj
View File

@@ -87,7 +87,18 @@
(let [fuzzy-match (->> clients (let [fuzzy-match (->> clients
(mapcat (fn [{:keys [:client/matches :client/name] :as client :or {matches []}}] (mapcat (fn [{:keys [:client/matches :client/name] :as client :or {matches []}}]
(map (fn [m] (map (fn [m]
[client (m/jaccard (.toLowerCase invoice-client-name) (.toLowerCase m))]) (let [similarity-index (m/jaccard (.toLowerCase invoice-client-name) (.toLowerCase m))
similarity-index (cond
(and (= 0 similarity-index)
(= (.toLowerCase invoice-client-name) (.toLowerCase m)))
0
(= 0 similarity-index)
0.1
:else
similarity-index)]
[client similarity-index]))
(conj matches name)))) (conj matches name))))
(filter #(<= (second %) threshold)) (filter #(<= (second %) threshold))
(sort-by second) (sort-by second)