字符串hash模板【pascal】

最新推荐文章于 2022-07-06 12:31:25 发布

Eirlys_North

最新推荐文章于 2022-07-06 12:31:25 发布

阅读量482

点赞数

分类专栏： Hash 模板文章标签：模板 hash

本文链接：https://blog.csdn.net/Eirlys_North/article/details/53206811

版权

模板同时被 2 个专栏收录

61 篇文章 0 订阅

订阅专栏

Hash

2 篇文章 0 订阅

订阅专栏

const
        base=137;
        step=13;
        mo=1000000;
var
        n,ans,p,l       :longint;
        s               :array[0..10010] of ansistring;
        heap            :array[0..1000010] of longint;
        i,j             :longint;
begin
   readln(n);ans:=0;
   for i:=1 to n do
   begin
      readln(s[i]);
      p:=0;l:=length(s[i]);
      for j:=1 to l do p:=(p+ord(s[i][j])*base) mod mo;
      while (heap[p]<>0) do
      begin
         if s[heap[p]]=s[i] then break;
         inc(p,step);
      end;
      if (heap[p]=0) then
      begin
         inc(ans);
         heap[p]:=i;
      end;
   end;
   writeln(ans);
end.

——by Eirlys