Реализации алгоритмов/Расстояние Левенштейна: различия между версиями
Содержимое удалено Содержимое добавлено
Строка 17:
ReDim m(l1, l2)
Dim b1() As Byte: b1 = StrConv(LCase(s1), vbUnicode)
Dim b2() As Byte: b2 = StrConv(LCase(s2), vbUnicode)
For i = 0 To l1
|