hash有关

z287438743z

于 2012-11-03 22:01:36 发布

阅读量368

点赞数

分类专栏： OI&ACM

本文链接：https://blog.youkuaiyun.com/z287438743z/article/details/8144736

版权

OI&ACM 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一种在Pascal语言中实现的ELFHASH算法，通过使用开散列法解决冲突，并提供了一个简单的函数实现。文章还包含了一个自定义的哈希函数和数据插入过程。

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

ELFHASH的pascal版本

function elfhash(key:string):longint;
const
	m=477779;
var
	h,g,i:dword;
begin
	for i:=1 to length(key) do begin
		h:=(h shl 4) + ord(key[i]);
		g:=h and $F0000000;
		if (g<>0) then h:=h xor (g shr 24);
		h:=h and (not g);
	end;
	elfhash:=h mod m;
end;

hash冲突的开散列法,由于用习惯了pascal,也不想改.但pascal的指针当真蛋疼.所以只能用数组模拟了.

date,next,h:array[1..n]of longint;
p:longint;
//
p:=0;
//
function f_hash();
//
procedure in_hash(x:longint);
var t:longint;
begin

t:=h[f_hash(x)];
inc(p);
date[p]:=x;

if t<>0 then begin
while next[t]<>0 do t:=next[t];
next[t]:=p;
end else h[f_hash(x)]:=p;
end;

随手写的,也不知道对不对啊.