index f6a321ed8c27323ffb4e1443975298845904b970..4e709373aa623f965b1c2b717c46e3337379a7f9 100644 (file)
MaxItems = 16384;
MaxItems = 16384;
-{
-function hequ (constref a, b: Integer): Boolean; begin result := (a = b); end;
-
-function hhash (constref k: Integer): LongWord;
-begin
- //result := fnvHash(k, sizeof(k));
- //result := u32Hash(LongWord(k));
- result := joaatHash(k, sizeof(k));
-end;
-}
-
-
var
its: array [0..MaxItems-1] of Integer;
marks: array [0..MaxItems-1] of Boolean;
var
its: array [0..MaxItems-1] of Integer;
marks: array [0..MaxItems-1] of Boolean;
begin
for i := 0 to High(its) do its[i] := -1;
begin
for i := 0 to High(its) do its[i] := -1;
- //hash := THashInt.Create(hhash, hequ);
- hash := hashNewIntInt();
+ hash := THashIntInt.Create();
Randomize();
Randomize();