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
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")*)
let rec suggestion_minimum_levenshtein_distance_association
let suggestion_minimum_levenshtein_distance_association
(string_list : string list)
(keyword : string) : string list option =
let rec strings_minimum_levenshtein_distance