levenshtein[s_List，t_List]：=模块[{d，n=长度@s，米=长度@t}，其中[s===t，0，n==0，m，m==0、n，s！=t，d=表[0，{m+1}，{n+1}]；d[[1，范围[n+1]]]=范围[0，n]；d[[范围[m+1]，1]]=范围[0，m]；Do[d[[j+1，i+1]]=最小值[d[[j，i+1]]+1，d[[j+1，i]]+1，d[[j，i]]+如果[s[[i]]==t[[j]]，0，1]]，{j，m}，{i，n}]；d[[-1，-1]]]；
t=表[0，{25}]；f[n_]：=levenshtein[整数位数[n]，整数位数[n，2]；做[t[[f@n+1]]=n，{n，10^6}]；t吨
