简单的hash表算法

eff

恩，前些天突然发现需要一个hash的基本系统，但是看到别人写的代码量太大了所以自己写了一个。


//===============================

integer  array              SYS_HashHandle

//===============================
function GetHandleIndexInHashTable takes handle h returns integer
    local integer i = H2I(h)
    local integer tmp = i
    local integer c = 0
    loop
       exitwhen(c>2000)
       set tmp = Mod(tmp*33,8191)//Mod是自己写的，取余数函数
       if(SYS_HashHandle[tmp]==i)then
           return tmp
       endif
       set c = c + 1
    endloop
    return -1
endfunction

function RemoveHandleFromHashTable takes integer i returns nothing
    set SYS_HashHandle = 0
endfunction

function AddHandleToHashTable takes handle h returns integer
    local integer i = H2I(h)
    local integer tmp = i
    local integer c = 0
    loop
       exitwhen(c>2000)
       set tmp = Mod(tmp*33,8191)
       if(SYS_HashHandle[tmp]==0)then
           set SYS_HashHandle[tmp] = i
           return tmp
       endif
       set c = c + 1
    endloop
    return -1
endfunction
//===========================
如上，代码量很少
使用经典的time33算法

eff

扩展功能自己添加

eff

function Mod takes integer m, integer d returns integer
    return m - (m / d) * d
endfunction

linzefei

支持下

evenxn007

不懂

kook

恕我愚昧了，何为time 33算法？

eff

就是用一个数字*33,在模一个质数
如果当前地址有值在*33，直到碰到空值为止。
说8191是质数来的。。blz的设计呀。。

eff

据说这个玩意是处理大量数据最简单经典可用的算法（有人比对过time33和blz自己写的hash算法，结论是time33快一点）

kook

不过为何是33呢

eff

很多老头子算出来的吧。反正据说直接乘这个数字是最快的

w727204387

找到这个了 传说中的TIMER33

支持一下

eff

不过这个算法有点问题，要加一个HandleCount，在每次分配handle的时候count+1，否则count-1。

cccty1l

set tmp = Mod(tmp*33,8191)

这里有点问题的吧。若第一次运算得tmp=0而且地址被占用的话，以后是不会找到新的地址的。

linzefei

ls复活了?

eff

o对，回去改改

瑞斯卡

收藏了，很有用的东西。。。。

c_kuhn

实际上 貌似 是 8191+1 = 8192 也就是2的13次方 忽略0了。。。