2761: [JLOI2011]不重复数字（平衡树）

2761: [JLOI2011]不重复数字

Time Limit: 10 Sec  Memory Limit: 128 MB
Submit: 2133  Solved: 825
[Submit][Status][Discuss]

Description

给出N个数，要求把其中重复的去掉，只保留第一次出现的数。

例如，给出的数为1 2 18 3 3 19 2 3 6 5 4，其中2和3有重复，去除后的结果为1 2 18 3 19 6 5 4。

Input

输入第一行为正整数T，表示有T组数据。

接下来每组数据包括两行，第一行为正整数N，表示有N个数。第二行为要去重的N个正整数。

Output

对于每组数据，输出一行，为去重后剩下的数字，数字之间用一个空格隔开。

Sample Input

2
11
1 2 18 3 3 19 2 3 6 5 4
6
1 2 3 4 5 6

Sample Output

1 2 18 3 19 6 5 4
1 2 3 4 5 6

HINT

对于30%的数据，1 <= N <= 100，给出的数不大于100，均为非负整数；

对于50%的数据，1 <= N <= 10000，给出的数不大于10000，均为非负整数；

对于100%的数据，1 <= N <= 50000，给出的数在32位有符号整数范围内。

提示:

由于数据量很大，使用C++的同学请使用scanf和printf来进行输入输出操作，以免浪费不必要的时间。

Source

题解：在上一次A掉此题很久之后，我再一次看到了这个题= =

这次我用的是平衡树查询，简单的\( O\left(N\log N \right) \)，而且速度貌似比上一次哈希还快

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 var
    i,j,k,l,m,n,head:longint;
    a,b:array[..] of longint;
    lef,rig,fix:array[..] of longint;
 procedure rt(var x:longint);
           var f,l:longint;
           begin
                if (x=) or (lef[x]=) then exit;
                f:=x;l:=lef[x];
                lef[f]:=rig[l];
                rig[l]:=f;
                x:=l;
           end;
 procedure lt(var x:longint);
           var f,r:longint;
           begin
                if (x=) or (rig[x]=) then exit;
                f:=x;r:=rig[x];
                rig[f]:=lef[r];
                lef[r]:=f;
                x:=r;
           end;
 function ins(var x:longint;y:longint):boolean;
          begin
               ins:=true;
               if x= then
                  begin
                       x:=y;
                       exit;
                  end;
               if a[y]<a[x] then
                  begin
                       if lef[x]= then lef[x]:=y else ins:=ins(lef[x],y);
                  end
               else if a[y]>a[x] then
                    begin
                         if rig[x]= then rig[x]:=y else ins:=ins(rig[x],y);
                    end
               else exit(false);
          end;
 begin
      readln(m);
      randomize;
      for l:= to m do
          begin
               readln(n);head:=;
               for i:= to n do
                   begin
                        read(a[i]);
                        lef[i]:=;rig[i]:=;
                        fix[i]:=random(maxlongint);
                   end;
               readln;k:=;
               for i:= to n do
                   if ins(head,i) then
                      begin
                           inc(k);
                           b[k]:=a[i];
                      end;
               for i:= to k do
                   if i<k then write(b[i],' ') else writeln(b[i]);
          end;
      readln;
 end.