如果你看一下下面这个通过的代码，相信会有点启发的。。。

program rq_322(input, output)；

const

maxn = 50000；

var

i, j, ans: longint；

S: ansistring；

dst: array [0..maxn, ’A’..’Z’] of longint；

begin

fillchar(dst, sizeof(dst), 0)；

ans := 0；

while not eof do

begin

readln(S)；

j := 0；

for i := 1 to length(S) do

if dst[j, S[i]] = 0 then

begin

inc(ans)；

dst[j, S[i]] := ans；

j := ans

end

else

j := dst[j, S[i]]

end；

writeln(ans + 1)

end.

-_- 看来我也开始做无聊的事情了呢

mark

我用了快排....

70行...