hdu3068最长回文(Manacher算法)

简单来说这是个很水的东西。有点dp的思想吧。推荐两个博客，很详细。

http://blog.****.net/xingyeyongheng/article/details/9310555

http://blog.****.net/ggggiqnypgjg/article/details/6645824

然后以为随便学点然后去复习，结果……呵呵。什么鬼数据，两行之间用空行隔开……没看到一直wa半节课……

hdu3068最长回文

var
  s1,s2:ansistring;
  s:array[..]of char;
  p:array[..]of longint;
  max,ans,mid,i,len:longint;
  ch:char;
  flag:boolean;

function min(x,y:longint):longint;
begin
  if x<y then min:=x
  else min:=y;
end;

begin
  while not eof do begin
    readln(s1);
    readln(s2);
    len:=length(s1);
    fillchar(p,sizeof(p),);
    s[]:='$';
    s[]:='#';
    for i:= to len do begin
      s[i*]:=s1[i];
      s[i*+]:='#';
    end;
    len:=len*+;
    s[len]:='#';
    mid:=;
    max:=;
    ans:=;
    for i:= to len do begin
      if max>i then
        p[i]:=min(p[mid*-i],max-i)
      else p[i]:=;
      while s[i+p[i]]=s[i-p[i]] do inc(p[i]);
      if p[i]+i>max then begin
        max:=p[i]+i;
        mid:=i;
      end;
      if ans<p[i] then ans:=p[i];
    end;
    writeln(ans-);
  end;
end.

简单来说就是判断是否被前面的覆盖到，如果有，根据对称性可以可得一个长度（min=(p[mid<<1-i]，max-i))，如果没有就长度为1，然后再根据这个长度扩展，顺便更新下最大值。

这渣状态……！！