Реализации алгоритмов/Расстояние Левенштейна: различия между версиями
Содержимое удалено Содержимое добавлено
→Visual Basic 6.0: working version (prev. is not workable) |
|||
Строка 5:
<source lang="vb">
Public Function levenshtein(ByVal string1 As String, ByVal string2 As String) As Long
Dim i As Long, j As Long, bs1() As Byte, bs2() As Byte
|