diff options
Diffstat (limited to '010')
-rwxr-xr-x | 010/ch2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -42,7 +42,7 @@ sub jaro { # Count transpositions my $t = 0; - for my $k (keys %matches) { + foreach my $k (keys %matches) { $t += 1 if $k != $matches{$k}; } |