Levenshtein distance: Difference between revisions

m
→‎{{header|Haskell}}: make the types more general
m (→‎{{header|Haskell}}: make the types more general)
Line 1,653:
 
=={{header|Haskell}}==
<lang haskell>levenshtein :: StringEq a => [a] -> String[a] -> Int
levenshtein s1 s2 = last $ foldl transform [0 .. length s1] s2
where
Anonymous user