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

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

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

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