Dubletten-Funktion: Dubletten in einem Array

[wolfram]

Hallo,
Ich moechte eine Dublettensuchfunktion für einen string-Array programmieren.
Die dublettenfunktion soll eine Art "matching factor" (t) zurueckgeben, so dass
die Übereinstimmung gemessen werden kann. ist t = 0 stimmen die strings 100% ueberein,
bei t=1 unterscheiden sie sich an einer stelle...

Haette jemand einen anderen Vorschlag nach dubletten in einem String zu suchen?
Oder eine function in Assembler, die das ganze beschleunigen wuerde?

Danke!

----------------

Bis jetzt habe ich mir folgenden Ablauf überlegt:

for x := 1 to "Groesse des Array" do

...
for y := 1 to "Groesse des Array" do
...
if (x<>y) then
t := doublette(array[x],array[y]);
if (t=Festgelegtes t, welches nicht ueberschritten werden darf) then
dublette := true //oder aehnlich
end;
end;

end;

//uses math;

function dublette(a,z):integer;
var x,t,Zmin:integer;
begin
Zmin := Min(length(a), length(z));

for x := 1 to zMin do
begin
if (a[x]=z[x]) then inc(t);
...

result := zMin-t;
end