算法模板——KMP字符串匹配

功能：输入一个原串，再输入N个待匹配串，在待匹配串中找出全部原串的起始位置

原理：KMP算法，其实这个东西已经包含了AC自动机的思想（fail指针/数组），只不过适用于单模板匹配，不过值得一提的是在单模板大量匹配待匹配串时，这个会有相当大的优势，AC自动机虽然好想一些，但是在这一类问题上的性价比就略低了

var
   i,j,k,l,m,n:longint;
   a:array[0..100000] of longint;
   s1,s2:ansistring;
begin
     readln(s1);
     a[1]:=0;
     for i:=2 to length(s1) do
         begin
              j:=a[i-1];
              while (j>0) and (s1[j+1]<>s1[i]) do j:=a[j];
              if s1[j+1]=s1[i] then a[i]:=j+1 else a[i]:=0;
         end;
     readln(n);
     for l:=1 to n do
         begin
              readln(s2);
              j:=0;
              for i:=1 to length(s2) do
                  begin
                       inc(j);
                       if s1[j]=s2[i] then
                          begin
                               if j=length(s1) then
                                   begin
                                        write(i-length(s1)+1,' ');
                                        j:=a[j];
                                   end;
                          end
                       else
                           begin
                                j:=j-1;
                                while (j>0) and (s1[j+1]<>s2[i]) do j:=a[j];
                                if s1[j+1]=s2[i] then inc(j) else j:=0;
                           end;
                  end;
              writeln;
         end;
     readln;
end.