poj1961 Period 2012-01-11

http://162.105.81.212/JudgeOnline/problem?id=1961

_____________________________________

 也是求最长重复字串。
_____________________________________

Program Stone;
var i,j,n,m:longint;
    s:ansistring;
    b:array[1..1000000]of longint;
Begin
 assign(input,'input.in');reset(input);
   readln(n);
   while n<>0 do
    begin
       readln(s);
       inc(m);
       j:=0;b[1]:=0;
       writeln('Test case #',m);
       for i:=2 to n do
        begin
          while (j>0)and(s[i]<>s[j+1]) do j:=b[j];
          if s[i]=s[j+1] then inc(j);
          b[i]:=j;
          if (i mod (i-b[i])=0)and(b[i]<>0) then writeln(i,' ',i div (i-b[i]));
        end;
       writeln;
       readln(n);
    end;
end.