poj2752 bzoj3670

2752这是一道关于next函数的题
（其实好像也可以用后缀数组暴力搞搞，但大概会超时）
根据next[i]=max{j} (s[0..j]=s[i-j..i] j<i)
不难发现这正是某个串既是前缀又是后缀的形式
所以我们先求一遍kmp，然后就是找出所有这样的串
首先最长的肯定是原串，，次长的肯定是s[0..next[n]]
那下一个呢？答案是只要一直从n按着next迭代下去就能找到可行解。
我们不妨设next[i]=j next[j]=k,当i是可行解，那j一定也是
因为s[0..j]=s[i-j..i]可得s[0..k]=s[i-k..k]=s[i-k,i]
然后就解决了
bzoj3670是今年的noi题，其实也是一样的，只不过多了不能重叠，其实也是很好解决的

code：poj2752

var next,q:array[0..400010] of longint;
    i,j,n,t :longint;
    s:array[0..400010] of char;
    ch:ansistring;

begin
  while not eof do
  begin
    readln(ch);
    n:=length(ch);
    for i:=0 to n-1 do
      s[i]:=ch[i+1];
    i:=0;
    j:=-1;
    next[0]:=-1;
    while (i<n) do
    begin
      if (j=-1) or (s[i]=s[j]) then
      begin
        inc(i);
        inc(j);
        next[i]:=j;
      end
      else j:=next[j];
    end;
    t:=0;
    j:=n;
    while j<>0 do
    begin
      inc(t);
      q[t]:=next[j];
      j:=next[j];
    end;
    for i:=t-1 downto 1 do
      write(q[i],' ');
    writeln(n);
  end;
end.

const mo=1000000007;

var f,next:array[0..1000010] of longint;
    a:array[0..1000010] of char;
    k,n,t,i,j:longint;
    ans:int64;
    s:ansistring;

begin
  readln(k);
  while k>0 do
  begin
    dec(k);
    readln(s);
    n:=length(s);
    for i:=1 to n do
      a[i-1]:=s[i];
    i:=0;
    j:=-1;
    next[0]:=-1;
    ans:=1;
    while i<n do
    begin
      if (j=-1) or (a[i]=a[j]) then
      begin
        inc(i);
        inc(j);
        next[i]:=j;
        f[i]:=f[j]+1;
      end
      else j:=next[j];
    end;
    i:=0;
    j:=-1;
    while i<n do
    begin
      if (j=-1) or (a[i]=a[j]) then
      begin
        inc(i);
        inc(j);
        while (j*2>i) do j:=next[j];
        ans:=ans*int64(f[j]+1) mod mo;
      end
      else j:=next[j];
    end;
    writeln(ans);
  end;
end.