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.