poj3461

【题意】

给定n对字符串，求每组的前一个字符串在后一个字符串之中出现了几次

【输入】

第一行一个n

接下来n组数据

一组数据两行，分别是一个字符串

【输出】

对于每组数据，输出前一个字符串在后一个字符串之中出现了几次

kmp模板题，最近kmp老是编错，需要注意失效函数和next函数的意义，我写的是失效函数，就是这一位，跳到前一位的失效函数的后一个继续比较

program poj3461;var  ans,l,n,i,j,k:longint;  w,t:ansistring;  next:array [0..10001] of longint;begin  readln(n);  while n>0 do    begin      readln(w);      readln(t);      l:=length(w);      next[1]:=0;      i:=1;      j:=0;      while i<l do        if (j=0)or(w[i+1]=w[j+1]) then          begin            inc(i);            if w[i]=w[j+1] then inc(j);            next[i]:=j;          end                                  else          j:=next[j];      w:=w+'#';      ans:=0;      j:=0;      for i:=1 to length(t) do        begin          while (j<>0)and(w[j+1]<>t[i]) do j:=next[j];          if w[j+1]=t[i] then            begin              inc(j);              if j=l then inc(ans);            end;        end;      writeln(ans);      dec(n);    end;end.