bzoj2761: [JLOI2011]不重复数字(hash)

题目大意：给出N个数，要求把其中重复的去掉，只保留第一次出现的数。例如，给出的数为1 2 18 3 3 19 2 3 6 5 4，其中2和3有重复，去除后的结果为1 2 18 3 19 6 5 4。

随意哈希一下。。。【我不会什么set啊treap啊之类的QAQ

代码如下：

var
  t,n,i,x:longint;
  v:array[..]of boolean;
  vv,b,a,ans:array[..]of int64;

function hash(x:int64):longint;
var
  xx:longint;
begin
  xx:=((x mod )+)mod ;
  while (b[xx]<>x)and(b[xx]<>) do
  xx:=(xx+)mod ;
  b[xx]:=x;
  exit(xx);
end;

begin
  readln(t);
  while t> do
  begin
    dec(t);
    readln(n);
    fillchar(b,sizeof(b),);
    fillchar(v,sizeof(v),false);
    for i:= to n do
    begin
      vv[i]:=-;
      read(a[i]);
      x:=hash(a[i]);
      if not v[x] then
      begin
        v[x]:=true;
        vv[i]:=x;
      end;
    end;
    ans[]:=;
    for i:= to n do
    begin
      if vv[i]<>- then
      begin
        inc(ans[]);
        ans[ans[]]:=b[vv[i]];
      end;
    end;
    for i:= to ans[]- do write(ans[i],' ');
    writeln(ans[ans[]]);
  end;
end.