Levenshtein distance: Difference between revisions
Content added Content deleted
(→{{header|Haskell}}: add alternative implementation) |
m (→Implementation 2: remove extra newlines) |
||
| Line 2,354: | Line 2,354: | ||
===Implementation 2=== |
===Implementation 2=== |
||
<lang haskell> |
<lang haskell>levenshtein :: Eq a => [a] -> [a] -> Int |
||
levenshtein :: Eq a => [a] -> [a] -> Int |
|||
levenshtein s1 [] = length s1 |
levenshtein s1 [] = length s1 |
||
levenshtein [] s2 = length s2 |
levenshtein [] s2 = length s2 |
||
| Line 2,366: | Line 2,365: | ||
main :: IO () |
main :: IO () |
||
main = print (levenshtein "kitten" "sitting") |
main = print (levenshtein "kitten" "sitting")</lang> |
||
</lang> |
|||
{{Out}} |
{{Out}} |
||
<pre>3</pre> |
<pre>3</pre> |
||