Реализации алгоритмов/Расстояние Левенштейна: различия между версиями

 

== [[w:Visual Basic|Visual Basic 6.0]] ==

 

Public Function levenshtein(ByVal string1 As String, ByVal string2 As String) As Long

MsgBox levenstein("папа", "мама")

 

 

== [[w:PHP|PHP]] ==

<?PHP

 

echo levenshtein($source, $dest); // built-in PHP function

?>

 

== [[w:JavaScript|JavaScript]] ==

/**

* @param {string} s1 Исходная строка

return buf[l2 + cutHalf - flip];

}

 

Пример использования:

var diff = levenshtein('Hello', 'HelA_1');

 

== [[w:Haskell|Haskell]] ==

import Data.List

 

compute c' x y z = minimum [y + 1, z + 1, x + if c' == c then 0 else 1]

 

 

== Среда [[w:PowerBuilder|PowerBuilder]] ==

нумерация элементов массивов начинается с единицы

 

function integer gf_lev_distance (string a_vsource, string a_vtarget);

 

end function

 

 

== [[w:Java|Java]] ==

Линейное потребление памяти без выделения памяти в процессе работы алгоритма.

 

 

public static int levenstain(@Nonnull String str1, @Nonnull String str2) {

}

 

 

== [[w:Scala|Scala]] ==

 

class Lowenstein(s1: String, s2: String) {

 

}

 

пример использования:

println( new Lowenstein("Hi, men!", "Hi, women!").getDistance )

 

== [[w:Python|Python]] ==

 

 

def distance(a, b):

return current_row[n]

 

 

== [[w:Turbo Pascal|Turbo Pascal]] ==

Дата: 29 июля 2009 г.

-->

 

program LeveDist; {Turbo PASCAL}

writeln(levenshtein(s1,s2));

end.

 

== [[w:Delphi|Delphi]] ==

Дата: 10 августа 2002 г.

-->

 

const

end;

end;

 

Пример использования:

// на форме имеются поля Edit1 и Edit2, метка Label1

...

Label1.Caption := IntToStr(LeveDist(Edit1.Text, Edit2.Text));

...

 

== [[w:Perl|Perl]] ==

sub levenshtein($$){

my @A=split //, lc shift;

if ($_[0] < $_[2]){ pop; } else { shift; }

return $_[0] < $_[1]? $_[0]:$_[1];

 

Пример использования:

print levenshtein("google","googol");

 

== [[w:C++|C++]] ==

Дата: 05 января 2019 г.

-->

#include <algorithm>

#include <vector>

return lev_dist[min_size];

}

 

Пример использования:

// Может быть использован любой подходящий контейнер (напр. std::vector).

// В нашем примере использованы строки:

const std::string::size_type distance = LevenshteinDistance(src, dst);

...

 

Имплементация обобщённого расстояния Левенштейна с произвольными стоимостями вставки, удаления и замены символа:

Дата: 05 января 2019 г.

-->

#include <algorithm>

#include <vector>

return lev_dist[min_size];

}

 

== [[w:C#|C#]] ==

Дата: 10 декабря 2007 г.

-->

public static int LevenshteinDistance(string string1, string string2)

{

return m[string1.Length, string2.Length];

}

 

Пример использования:

string s1="мама";

string s2="папа";

int diff=LevenshteinDistance(s1,s2);

 

== [[w:Transact-SQL|Transact-SQL]] ==

''Примечание: Данная процедура может использоваться только в качестве примера, или для тестирования в силу плохой производительности.''

 

create procedure LevenshteinDistance(@string1 varchar(4000), @string2 varchar(4000))

as

return @retval

end

 

Пример использования:

declare @retval int

exec @retval = LevenshteinDistance 'Петрова Дарья Ивановна', 'Петрова Марья Ивановна'

select @retval

 

== [[w:Go|Go]] ==

 

func distance(s1, s2 string) int {

min := func(values ...int) int {

return currentRow[n]

}

== См. также ==

* [[Реализации алгоритмов/Редакционное предписание]]