Thema: Delphi Levenshtein-Distanz

Einzelnen Beitrag anzeigen

Robert Marquardt
(Gast)

n/a Beiträge
 
#4

Re: Levenshtein-Distanz

  Alt 11. Dez 2005, 06:46
Es gibt noch ein paar Optimierungen.

Delphi-Quellcode:
      SI:=S[I];
      for J:=1 to M do begin
        TJ:=T[J];
        if (SI=TJ) then Cost:=0
        else Cost:=1;
Besser
Delphi-Quellcode:
   for J := 0 to M do
   begin
     Cost := Ord(S[I] <> T[J]);
SI und TJ sind Unsinn, wenn sie nur einmal gebraucht werden.
Den schoenen Trick mit Ord sollte man immer parat haben.
  Mit Zitat antworten Zitat