1069: 动态规划入门（二维一边推2：顺序对齐）

1069: 动态规划入门（二维一边推2：顺序对齐）

时间限制: 1 Sec 内存限制: 128 MB
题目描述
【问题描述】

考虑两个字符串右对齐的最佳解法。例如，有一个右对齐方案中字符串是AADDEFGGHC和ADCDEGH。

AAD_DEFGGHC

ADCDE__GH_

每一个数值匹配的位置值2分，一段连续的空格值-1分。所以总分是匹配点的2倍减去连续空格的段数，在上述给定的例子中，6个位置（A，D，D，E，G，H）匹配，三段空格，所以得分2*6+(-1)*3=9，注意，我们并不处罚左边的不匹配位置。若匹配的位置是两个不同的字符，则既不得分也不失分。

请你写个程序找出最佳右对齐方案。

【输入文件】

输入文件包含两行，每行一个字符串，最长50个字符。字符全部是大字字母。

【输出文件】

一行，为最佳对齐的得分。

状态的定义需要根据题意的特殊性

样例输入
AADDEFGGHC
ADCDEGH
样例输出
9

Solution

输入两个字符
首先对他进行反序，变为右对齐
在进行接下来的处理

初始化，将f[i][ ]&f[ ][j]转化为空格
其余赋值最大

如果相等则+2分
不相等则不变

Code

program string;
var
  f:array[0..2000,0..2000]of longint;
  s:string;
  s1,s2:array[0..2000]of char;
  len1,len2,ans,i,j,k:longint;
function max(p,q:longint):longint;
begin
  if p>q then exit(p)
  else exit(q);
end;
begin

  readln(s);len1:=length(s);
  for i:=0 to len1 do  s1[i]:=s[len1-i+1];//反向改成右对齐
  readln(s);len2:=length(s);
  for i:=0 to len2 do  s2[i]:=s[len2-i+1];//同上


  for i:=1 to len1 do
  for j:=1 to len2 do f[i,j]:=-maxlongint;
  f[0,0]:=0;
  for i:=1 to len1 do f[i][0]:=-1;
  for j:=1 to len2 do f[0][j]:=-1;//初始化，

  for i:=1 to len1 do
    for j:=1 to len2 do
      begin
        if s1[i]=s2[j] then f[i][j]:=max(f[i,j],f[i-1][j-1]+2)
        else f[i][j]:=max(f[i][j],f[i-1][j-1]);
        for k:=i-1 downto 0 do f[i][j]:=max(f[i][j],f[k][j]-1);//加空格
        for k:=j-1 downto 0 do f[i][j]:=max(f[i][j],f[i][k]-1);//加空格

      end;

   ans:=-99999999;
   for i:=len1 downto 0 do ans:=max(ans,f[i][len2]);
   for i:=len2 downto 0 do ans:=max(ans,f[len1][i]);
//最后扫一遍ans打擂台即可

   writeln(ans);

end.