P2758 编辑距离
题目描述
设A和B是两个字符串。我们要用最少的字符操作次数,将字符串A转换为字符串B。这里所说的字符操作共有三种:
1、删除一个字符;
2、插入一个字符;
3、将一个字符改为另一个字符;
!皆为小写字母!
输入输出格式
输入格式:
第一行为字符串A;第二行为字符串B;字符串A和B的长度均小于2000。
输出格式:
只有一个正整数,为最少字符操作次数。
输入输出样例
sfdqxbw gfdgw
4
var
f:array[0..2000,0..2000]of longint;//f[i,j]为第i个数到第j个数的最短的编辑距离
s,ss:ansistring;
i,j,k,len,len2:longint;
function min(a,b:longint):longint;
begin
if a<b then exit(a);
exit(b);
end;
begin
readln(s);
readln(ss);
len:=length(s);
len2:=length(ss);
for i:=1 to len do f[i,0]:=i;//不改任何东西最短距离就是它自己咯
for i:=1 to len2 do f[0,i]:=i;//同上
for i:=1 to len do
for j:=1 to len2 do
if s[i]=ss[j] then f[i,j]:=f[i-1,j-1]//相同的话就不用改啦
else f[i,j]:=min(min(f[i-1,j]+1,f[i,j-1]+1),f[i-1,j-1]+1);
writeln(f[len,len2]);
end.