重复字符串

题目描述
给定两个字符串a和b，我们可以定义一些操作：a*b为将字符串a和字符串b连接起来，比如a= “aoe”，b= “jkw”，那么a*b= “aoejkw”。进一步，我们可以有指数操作，a^0= “”， a^1=a， a^2=a*a， a^n=a*(a^(n-1))=a*a*…*a (n个a)

现在给你一个字符串，你可以将它看成是a^n的形式，比如字符串”abababab”，可以认为是”abab”^2， 也可以是”abababab”^1，还可以是”ab”^4。

现在问题是，给定的字符串，我们想让它变成a^n中的n达到最大，那么这个n最大是多少？例如：”abababab”最大的n是4。

输入
第一行，一个整数m，表示有m个字符串。

接下来m行每行输入一个只含小写字母的字符串。

输出
输出m行，对于每行输出相应字符串的最大n。

样例输入
3
abcde
aaaaaa
abababab
样例输出
1
6
4
提示
30%的数据：字符串的长度≤1000；
100%的数据：字符串的长度≤1000000， m≤10，字符串内只含小写字母。

30分做法：枚举
长度范围只有1000时，我们可以枚举k， 取字符串第1个到第k个字符作为子串T，然后去验证剩下的字符串是否都是T重复得来
时间复杂度O(n^2)

100分做法：KMP，Next数组
假设字符串为S，长度为N，子串T重复K次后得到串S，那么T的长度一定为L = N/K(要整除)，则T = S[1…L]，将S拆分成K份，每份长度为L，则有
S[1…L] = S[L+1…2L] = S[2L+1…3L] = … = S[(K-1)L+1…KL]
由于要保证K最大，势必L要取最小，所以根据Next函数的定义，有Next[KL] = (K-1)L;
即Next[N] = N - L，所以L = N - Next[N];
但是得出的长度L还要保证能被N整除，所以如果不能整除说明L = N，即K = 1；而如果能整除，那么K = N / (N - Next[N]);
因而我们只要对字符串S做一趟KMP，对其求Next数组，剩下的就是上述结论
时间复杂度O(n)

var
q,t,len,i,ans,k:longint;
f:boolean;
next:array[0..2000011] of longint;
s:ansistring;
function find(i,k:longint):longint;
begin
  if k=0 then exit(0);
  if s[i]=s[next[k]+1] then exit(next[k]+1)
                       else exit(find(i,next[k]));
end;

begin
  readln(t);
  for q:=1 to t do
  begin
    readln(s);
    len:=length(s);
    fillchar(next,sizeof(next),0);
    for i:=2 to len do
    begin
      k:=i-1;
      while (s[i]<>s[next[k]+1])and(k<>0) do
      begin
        k:=next[k];
      end;
      if k=0 then next[i]:=0 else next[i]:=next[k]+1;
    end;
    ans:=next[len];
    if ans=0 then begin writeln('1'); continue; end;
    i:=ans+1;
    f:=true;
    while i<=len do
    begin
      if s[(i-1) mod ans+1]<>s[i] then begin f:=false; break; end;
      i:=i+1;
    end;
    if f then writeln(len div (len-ans))
         else writeln('1');
  end;
end.