get re(c)t

This commit is contained in:
Aminata-Dev 2023-07-10 12:53:59 +02:00 committed by Louis Gesbert
parent f8755f0202
commit 6123ebd004

View File

@ -53,7 +53,7 @@ let levenshtein_distance (s : string) (t : string) : int =
reference word "keyword" and all the strings in "string_list" (with the reference word "keyword" and all the strings in "string_list" (with the
condition that this minimum is equal to or less than one third of the length condition that this minimum is equal to or less than one third of the length
of keyword + 1, in order to get suggestions close to "keyword")*) of keyword + 1, in order to get suggestions close to "keyword")*)
let rec suggestion_minimum_levenshtein_distance_association let suggestion_minimum_levenshtein_distance_association
(string_list : string list) (string_list : string list)
(keyword : string) : string list option = (keyword : string) : string list option =
let rec strings_minimum_levenshtein_distance let rec strings_minimum_levenshtein_distance