SSL JudgeOnline 2244——国王的魔镜

Description

国王有一个魔镜，可以把任何接触镜面的东西变成原来的两倍——只是，因为是镜子嘛，增加的那部分是反的。
比如一条项链，我们用AB来表示，不同的字母表示不同颜色的珍珠。如果把B端接触镜面的话，魔镜会把这条项链变为ABBA。如果再用一端接触的话，则会变成ABBAABBA（假定国王只用项链的某一端接触魔镜）。
给定最终的项链，请编写程序输出国王没使用魔镜之前，最初的项链可能的最小长度。

Input

文件名：MAGIC.IN
文件中只有一个字符串，由大写英文字母组成，表示最终的项链。

Output

文件名：MAGIC.OUT
文件中只有一个整数，表示国王没使用魔镜前，最初的项链可能的最小长度。

Sample Input
ABBAABBA

Sample Output
2

---

此题不难

我们先将项链读进来，我们一次一次将这项链分为两半，直到不可以分为止（t mod 2<>0)。最后将长度输出来。

只要我们找到思路 就不难 做出来

代码如下

var   x,s,y:ansistring;
      t,i:longint;
begin
  read(x);
  t:=length(x);
  if t mod 2=0 then
    begin
      repeat
        if t mod 2=0 then
          begin
            s:=copy(x,1,t div 2);
            y:='';
            for i:=length(x) downto t div 2+1 do y:=y+x[i];
            if y=s then begin t:=t div 2; x:=copy(x,1,t); end
                   else begin write(t); exit; end;
          end;
      until t mod 2<>0;
      write(t); exit;
    end;
  write(t);
end.