2017年1月18日
pascal kmp板子
摘要： P[1]:=0;j:=0;for i:=2 to m dobeginwhile (j>0) and (B[j+1]<>B[i]) do j:=P[j]; if B[j+1]=B[i] then j:=j+1; P[i]:=j;end; j:=0;for i:=1 to n dobegin while 阅读全文
posted @ 2017-01-18 09:33 zinol 阅读(88) 评论(0) 推荐(0) 编辑