Здесь у вас есть результаты для вашего примера с использованием расстояния Левенштейна:
EditDistance["Michael",#]&/@{"John","Adam","Paul","Mike","John-Michael"}
{6,6,5,4,5}
Здесь у вас есть результаты с помощью теста подобия Смита-Уотермана
SmithWatermanSimilarity["Michael",#]&/@{"John","Adam","Paul","Mike","John-Michael"}
{0.,0.,0.,2.,7.}
HTH!