Jaro similarity: Difference between revisions

No edit summary
Line 1,841:
 
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>ClearAll[MyJaroDistanceJaroDistance]
MyJaroDistanceJaroDistance[s_String, t_String] := Module[{slen, tlen, maxdistance, smatches, tmatches, matches, transpositions, start, end, k, schar, tchar},
slen = StringLength[s];
tlen = StringLength[t];
Line 1,896:
]
]
MyJaroDistanceJaroDistance["DWAYNE", "DUANE"]
MyJaroDistanceJaroDistance["MARTHA", "MARHTA"]
MyJaroDistanceJaroDistance["DIXON", "DICKSONX"]
MyJaroDistanceJaroDistance["JELLYFISH", "SMELLYFISH"]</lang>
{{out}}
<pre>0.822222
1,111

edits