Levenshtein distance: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: make the types more general) |
|||
Line 1,653: | Line 1,653: | ||
=={{header|Haskell}}== |
=={{header|Haskell}}== |
||
<lang haskell>levenshtein :: |
<lang haskell>levenshtein :: Eq a => [a] -> [a] -> Int |
||
levenshtein s1 s2 = last $ foldl transform [0 .. length s1] s2 |
levenshtein s1 s2 = last $ foldl transform [0 .. length s1] s2 |
||
where |
where |