programa { funcao inicio() { cadeia a = "mustache" cadeia b = "mostacheh" escreva(editDist(a,b,comprimento(a), comprimento(b))) } funcao inteiro editDist(cadeia str1 , cadeia str2 , inteiro m ,inteiro n) { inteiro l = m + 1 inteiro c = n + 1 inteiro i, j inteiro mat[l][c] para(i = 0; i <= m; i = i + 1 ) { para(j = 0; j <= n; j = j + 1) { se (i==0) { mat[i][j] = j } senao se (j == 0) { mat[i][j] = i } senao se (char_at(str1, i-1) == char_at(str2, j-1)) { mat[i][j] = mat[i-1][j-1] } senao { mat[i][j] = 1 + Matematica.minimo({mat[i][j-1], mat[i-1][j], mat[i-1][j-1]}) } } } retorne mat[m][n] } }