【DP】顺序对齐

 顺序对齐

源程序名　　　ALIGN.??? (PAS,C,CPP)

可执行文件名   ALIGN.EXE

输入文件名　　 ALIGN.IN

输出文件名     ALIGN.OUT

 

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

AAD_DEFGGHC

 ADCDE__GH_

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

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

 

输入

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

 

输出

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

 

样例

ALIGN.IN

AADDEFGGHC

ADCDEGH

ALIGN.OUT

9

=================================

===============================

var
  st1,st2:string;
  f:array[0..50,0..50]of longint;
procedure init;
begin
  assign(input,'align.in');
  assign(output,'align.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  i,j,k:longint;
  st1_l,st2_l:longint;
begin
  readln(st1); readln(st2);
  st1_l:=length(st1);
  st2_l:=length(st2);
  for i:=0 to 50 do
    for j:=0 to 50 do f[i,j]:=-1000000;
  for i:=0 to st1_l do f[i,0]:=0;
  for i:=0 to st2_l do f[0,i]:=0;
  for i:=1 to st1_l do
    for j:=1 to st2_l do
      begin
        if st1[i]=st2[j] then
          begin
            if f[i-1,j-1]+2>f[i,j] then f[i,j]:=f[i-1,j-1]+2;
          end
          else
            if f[i-1,j-1]>f[i,j] then f[i,j]:=f[i-1,j-1];
          for k:=1 to i-1 do
            if f[i,j]<f[k,j]-1 then f[i,j]:=f[k,j]-1;
          for k:=1 to j-1 do
            if f[i,j]<f[i,k]-1 then f[i,j]:=f[i,k]-1;
      end;
  writeln(f[st1_l,st2_l]);
end;

begin
  init;
  main;
  terminate;
end.