algorithm - Levenshtein 算法 - 如果编辑距离大于给定阈值，则快速失败

Question

对于 Levenshtein 算法，我找到了 this implementation for Delphi .

我需要一个在达到最大距离后立即停止并返回到目前为止找到的距离的版本。

我的第一个想法是在每次迭代后检查当前结果:

for i := 1 to n do
    for j := 1 to m do
    begin
      d[i, j] := Min(Min(d[i-1, j]+1, d[i,j-1]+1), d[i-1,j-1]+Integer(s[i] <> t[j]));

      // check   
      Result := d[n, m];
      if Result > max then
      begin
        Exit;
      end; 

    end;

Answer 1

我知道你想要的是找到 levenstein 距离，如果它低于 MAX，对吗？

如果是这样，达到大于MAX 的值是不够的，因为它只意味着一些 路径比那个长，而不是不存在更短的路径.为确保找不到比 MAX 短的路径，必须监视到当前点的路径的最小可能长度，即距离表中一列的最小值。

我不擅长 Delphi，但我认为代码应该是这样的:

for i := 1 to n do
begin;
    min := MAX + 1
    for j := 1 to m do
    begin;
      d[i, j] := Min(Min(d[i-1, j]+1, d[i,j-1]+1), d[i-1,j-1]+Integer(s[i] <> t[j]));
      min := Min(min, d[i,j])
    end;
    if min >= MAX then
        Exit;
end;