改成 Hash 后只有 800ms!!!!!!ORZ!!!

function BKBHash(t: tstr): longint;
const
	dumb_seed = 131313;
var
	l, i, result: longint;
begin
	l := length(t);
	result := 0;
	for i := 1 to l do
		result := (result * dumb_seed + ord(t[i])) and $7fffffff;
	result := result mod magic_seed;
	exit(result);
end;

magic_seed 请自己 YY