pku2406 Power Strings

有一个字符串，长度在1000000以内，求它最大的链节个数，即把s表示成s'+s'+s'······。求s'的个数。

用KMP的思想，求出next数组，然后可以用手画方法发现从next[length(s)]到length(s)间的字符串可以不断向前推，只要这个长度能被总长度整除，它就是最大链节长度，否则就是1.

program pku2406(input,output);
var
   i,j    : longint;
   s    : ansistring;
   next    : array[0..1200000] of longint;
begin
   readln(s);
   while s<>'.' do
   begin
      j:=0;
      next[1]:=0;
      for i:=2 to length(s) do
      begin
     while (s[i]<>s[j+1])and(j>0) do
        j:=next[j];
     if s[i]=s[j+1] then
        inc(j);
     next[i]:=j;
      end;
      if (length(s) mod (length(s)-next[length(s)])=0) then
     writeln((length(s) div (length(s)-next[length(s)])))
      else
     writeln(1);
      readln(s);
   end;
end.