Saya mau tau Implementasi dari Jarak Levenshtein

Ini adalah implementasi Haskell rekursif namun tidak efisien, dari fungsi lDistance yang mengambil dua string, s dan t, bersama dengan panjangnya, dan mengembalikan jarak Levenshtein di antara keduanya:lDistance :: ( Eq a ) => [a] -> [a] -> Int

lDistance [] t = length t   -- Jika s kosong maka jarak adalah banyak karakter di t

lDistance s [] = length s   -- Jika t kosong maka jarak adalah banyak karakter di s