编辑距离

编辑距离

题目描述
设A和B是两个字符串。我们要用最少的字符操作次数，将字符串A转换为字符串B。这里所说的字符操作共有三种：
1、删除一个字符；
2、插入一个字符；
3、将一个字符改为另一个字符；
！皆为小写字母！

输入输出格式
输入格式：
第一行为字符串A；第二行为字符串B；字符串A和B的长度均小于2000。

输出格式：
只有一个正整数，为最少字符操作次数。

输入输出样例
输入样例#1：
sfdqxbw
gfdgw

输出样例#1：
4

---

f[i,j]:=min(min(f[i-1,j],f[i,j-1]),f[i-1,j-1])+1;

var
  i,j,k,m,n:Longint;
  s1,s2:ansistring;
  f:array[0..2000,0..2000] of Longint;
function min(x,y:Longint):Longint;
begin
  if x<y then exit(x) else exit(y);
end;
begin
  readln(s1);
  readln(s2);
  m:=length(s1);
  n:=length(s2);
  for i:=1 to m do
    f[i,0]:=i;
  for i:=1 to n do
    f[0,i]:=i;
  for i:=1 to m do
    for j:=1 to n do
      if s1[i]=s2[j] then
        f[i,j]:=f[i-1,j-1]
        else
          f[i,j]:=min(min(f[i-1,j],f[i,j-1]),f[i-1,j-1])+1;
  writeln(f[m,n]);
end.