字符串hash模板【pascal】

最新推荐文章于 2025-07-07 13:21:30 发布

Eirlys_North

最新推荐文章于 2025-07-07 13:21:30 发布

阅读量518

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/Eirlys_North/article/details/53206811

模板同时被 2 个专栏收录

61 篇文章

订阅专栏

Hash

2 篇文章

订阅专栏

本文介绍了一种基于字符串哈希的算法实现，该算法通过计算字符串的哈希值来高效地处理字符串匹配问题。文中详细展示了算法的具体实现过程，包括初始化参数、读取输入、计算字符串哈希值等步骤，并通过一个具体的程序实例解释了如何避免哈希冲突。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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