Быстрая функция расстояния Левенштейна

 form dist using s1 type csequence s2 type csequence CHANGING res TYPE i.
  data:
    ntab TYPE table OF i,
    otab TYPE table of i,
    ls1 type i, ls2 type i,
    t1 type i, t2 type i,
    tt2 type i,
    x1 type i, x2 type i,
    x type i,
    inp type i.
 
  ls1 = strlen( s1 ) - 1.
  ls2 = strlen( s2 ) - 1.
  do.
    do.
      if s1+t1(1) = s2+t2(1).
        if t1 = 0.
          inp = t2.
        elseif t2 = 0.
          inp = t1.
        else.
          read table otab into inp index t2.
        endif.
        insert inp into table ntab.
      else.
        if t1 = 0.
          inp = t2 + 1.
        elseif t2 = 0.
          inp = t1 + 1.
        else.
          tt2 = t2 + 1.
          read table ntab into x index t2.
          read table otab into x1 index t2.
          read table otab into x2 index tt2.
          if x < x1.
            if x < X2.
              inp = x + 1.
            else.
              inp = x2 + 1.
            endif.
          else.
            if x1 < x2.
              inp = x1 + 1.
            else.
              inp = x2 + 1.
            endif.
          endif.
        endif.
        insert inp into table ntab.
      endif.
      if t2 = ls2.
        t2 = 0.
        exit.
      endif.
      t2 = t2 + 1.
    enddo.
    refresh otab.
    otab[] = ntab[].
    refresh ntab.
    if t1 = ls1.
      exit.
    endif.
    t1 = t1 + 1.
  enddo.
  res = inp.
endform.