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: 2761
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:1840 ms
    Memory:2180 kb
****************************************************************/
 
var
   i,j,k,l,m,n,head:longint;
   a,b:array[0..100000] of longint;
   lef,rig,fix:array[0..100000] of longint;
procedure rt(var x:longint);
          var f,l:longint;
          begin
               if (x=0) or (lef[x]=0) 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=0) or (rig[x]=0) 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=0 then
                 begin
                      x:=y;
                      exit;
                 end;
              if a[y]<a[x] then
                 begin
                      if lef[x]=0 then lef[x]:=y else ins:=ins(lef[x],y);
                 end
              else if a[y]>a[x] then
                   begin
                        if rig[x]=0 then rig[x]:=y else ins:=ins(rig[x],y);
                   end
              else exit(false);
         end;
begin
     readln(m);
     randomize;
     for l:=1 to m do
         begin
              readln(n);head:=0;
              for i:=1 to n do
                  begin
                       read(a[i]);
                       lef[i]:=0;rig[i]:=0;
                       fix[i]:=random(maxlongint);
                  end;
              readln;k:=0;
              for i:=1 to n do
                  if ins(head,i) then
                     begin
                          inc(k);
                          b[k]:=a[i];
                     end;
              for i:=1 to k do
                  if i<k then write(b[i],' ') else writeln(b[i]);
         end;
     readln;
end.