首页 > 代码库 > poj2752 水题
poj2752 水题
又2b了一次……
1 var s:ansistring; 2 ans,pre:array[0..10000] of longint; 3 i,k,tot:longint; 4 procedure main; 5 begin 6 pre[1]:=0;k:=0; 7 for i:=2 to length(s) do 8 begin 9 while (k<>0) and (s[k+1]<>s[i]) do k:=pre[k]; 10 if s[k+1]=s[i] then inc(k); 11 pre[i]:=k; 12 end; 13 k:=pre[length(s)]; 14 tot:=0; 15 while k<>0 do 16 begin 17 inc(tot);ans[tot]:=k; 18 k:=pre[k]; 19 end; 20 for i:=tot downto 1 do write(ans[i],‘ ‘); 21 writeln(length(s)); 22 end; 23 begin 24 while true do 25 begin 26 readln(s);if s=‘‘ then break; 27 main; 28 end; 29 end.
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。