Description
设有字符串 X,我们称在 X 的头尾及中间插入任意多个空格后构成的新字符
串为 X 的扩展串,如字符串 X 为”abcbcd”,则字符串“abcb□cd”,“□a□bcbcd
□”和“abcb□cd□”都是 X 的扩展串,这里“□”代表空格字符。
如果 A1 是字符串 A 的扩展串,B1 是字符串 B 的扩展串,A1 与 B1 具有相
同的长度,那么我扪定义字符串 A1 与 B1 的距离为相应位置上的字符的距离总
和,而两个非空格字符的距离定义为它们的 ASCII 码的差的绝对值,而空格字
符与其他任意字符之间的距离为已知的定值 K,空格字符与空格字符的距离为 0。
在字符串 A、B 的所有扩展串中,必定存在两个等长的扩展串 A1、B1,使得 A1
与 B1 之间的距离达到最小,我们将这一距离定义为字符串 A、B 的距离。
扫描二维码关注公众号,回复:
1922660 查看本文章
请你写一个程序,求出字符串 A、B 的距离。
Input
从文件 blast.in 中读入数据,输入文件第一行为字符串 A,第二行为字符串 B。
A、B 均由小写字母组成且长度均不超过 2000。第三行为一个整数 K(1≤K≤100),
表示空格与其他字符的距离。
Output
输出到文件 blast.out 中,仅一行包含一个整数,表示所求得字符串 A、B 的距离。
Sample Input
cmc
snmn
2
Sample Output
10
Source
题解:
本题是动规,f[i,j]是字符i到j的最小距离
首先要初始化每个字符之间都是空格的情况:f[i,0]/f[0,i]:=i*k;
接着动态转移即可
动态转移方程:
min(f[i,j-1]+k,f[i-1,j]+k,f[i-1,j-1]+距离
(它们的 ASCII 码的差的绝对值)
var
f:array[0..2000,0..2000]of longint;
a,b:ansistring;
k,lena,lenb,i,j:longint;
function min(a,b:longint):longint;
begin
if a<b then exit(a);
exit(b);
end;
begin
read(a);
readln;
read(b);
readln;
read(k);
lena:=length(a); lenb:=length(b);
for i:=1 to lena do f[i,0]:=i*k;
for i:=1 to lenb do f[0,i]:=i*k;
for i:=1 to lena do
for j:=1 to lenb do
begin
f[i,j]:=min(f[i,j-1],f[i-1,j])+k;//因为做比较三个数大小的动态转移比较麻烦,故比较两次(有想挑战数据的同学可以自行尝试)
f[i,j]:=min(f[i,j],f[i-1,j-1]+abs(ord(a[i])-ord(b[j])));
end;
write(f[lena,lenb]);