8.11 2575 给出字符串

题目

给出一个由小写字母组成的字符串。你的任务是找出其最长的出现至少两次的子串的长度。这些重复出现的子串可以重叠（参见样例2）。
数据保证该字符串非空，由小写字母组成，且其长度不超过100。

【输入样例2】 【输出样例2】
ababa 3

题解

直接枚举比较就好了，有n2的做法和n3的做法

代码

这个玩意儿貌似是n2,然而好像还有一个什么KMP的算法

var
  s:string;
  i,j,k,ans:longint;
begin
  readln(s);
  ans:=0;
  for i:=1 to length(s) do
    for j:=ans+1 to length(s)-i+1 do
      if (pos(copy(s,i,j),s)<>0)and(pos(copy(s,i,j),s)<>i) then
        ans:=j;
  writeln(ans);
end.

最简单的枚举。嗯，这东西应该是n3的了

var
  s:string;
  i,j,k,n,ans,max:longint;
begin
  assign(input,'ygas.in');
  assign(output,'ygas.out');
  reset(input);rewrite(output);
  readln(s);
  n:=length(s);
  for i:=1 to n do
    for j:=1 to n-i+1 do
      for k:=i+1 to n-j+1 do
        if (copy(s,i,j)=copy(s,k,j))and(j>ans) then ans:=j;
  writeln(ans);
  close(input);close(output);
end.