专栏首页HansBug's Lab2761: [JLOI2011]不重复数字(平衡树)

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) \),而且速度貌似比上一次哈希还快

 1 /**************************************************************
 2     Problem: 2761
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:1840 ms
 7     Memory:2180 kb
 8 ****************************************************************/
 9  
10 var
11    i,j,k,l,m,n,head:longint;
12    a,b:array[0..100000] of longint;
13    lef,rig,fix:array[0..100000] of longint;
14 procedure rt(var x:longint);
15           var f,l:longint;
16           begin
17                if (x=0) or (lef[x]=0) then exit;
18                f:=x;l:=lef[x];
19                lef[f]:=rig[l];
20                rig[l]:=f;
21                x:=l;
22           end;
23 procedure lt(var x:longint);
24           var f,r:longint;
25           begin
26                if (x=0) or (rig[x]=0) then exit;
27                f:=x;r:=rig[x];
28                rig[f]:=lef[r];
29                lef[r]:=f;
30                x:=r;
31           end;
32 function ins(var x:longint;y:longint):boolean;
33          begin
34               ins:=true;
35               if x=0 then
36                  begin
37                       x:=y;
38                       exit;
39                  end;
40               if a[y]<a[x] then
41                  begin
42                       if lef[x]=0 then lef[x]:=y else ins:=ins(lef[x],y);
43                  end
44               else if a[y]>a[x] then
45                    begin
46                         if rig[x]=0 then rig[x]:=y else ins:=ins(rig[x],y);
47                    end
48               else exit(false);
49          end;
50 begin
51      readln(m);
52      randomize;
53      for l:=1 to m do
54          begin
55               readln(n);head:=0;
56               for i:=1 to n do
57                   begin
58                        read(a[i]);
59                        lef[i]:=0;rig[i]:=0;
60                        fix[i]:=random(maxlongint);
61                   end;
62               readln;k:=0;
63               for i:=1 to n do
64                   if ins(head,i) then
65                      begin
66                           inc(k);
67                           b[k]:=a[i];
68                      end;
69               for i:=1 to k do
70                   if i<k then write(b[i],' ') else writeln(b[i]);
71          end;
72      readln;
73 end.   

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 1901: Zju2112 Dynamic Rankings

    1901: Zju2112 Dynamic Rankings Time Limit: 10 Sec  Memory Limit: 128 MB Submit: ...

    HansBug
  • 1050: [HAOI2006]旅行comf

    1050: [HAOI2006]旅行comf Time Limit: 10 Sec  Memory Limit: 162 MB Submit: 1495  So...

    HansBug
  • 2953: [Poi2002]商务旅行

    2953: [Poi2002]商务旅行 Time Limit: 3 Sec  Memory Limit: 128 MB Submit: 8  Solved: 8...

    HansBug
  • 1901: Zju2112 Dynamic Rankings

    1901: Zju2112 Dynamic Rankings Time Limit: 10 Sec  Memory Limit: 128 MB Submit: ...

    HansBug
  • 1050: [HAOI2006]旅行comf

    1050: [HAOI2006]旅行comf Time Limit: 10 Sec  Memory Limit: 162 MB Submit: 1495  So...

    HansBug
  • 算法模板——平衡树Treap 2

    实现功能:同平衡树Treap 1(BZOJ3224 / tyvj1728) 这次的模板有了不少的改进,显然更加美观了,几乎每个部分都有了不少简化,尤其是删除部分...

    HansBug
  • Latex常用公式整理

    Echo_fy
  • 算法模板——线段树8 (字符串回文变换)

    实现功能:输入一个长度为N的由26个大写字母组成的字符串,输入M条指令:"1 x y",将x到y的字串重组构成一个字典序最小的回文串,如果不能构成回文串输出Fa...

    HansBug
  • DTcms4/5远程图片自动保存报错:A generic error occurred in GDI+.

    玩了很久DTcms,今天居然在保存远程图片到本地时,报了错误:A generic error occurred in GDI+.

    崔文远TroyCui
  • 生物信息学技能面试题(第4题)-多个同样的行列式文件合并起来

    相信用过htseq-count的朋友都知道,它是分开对每个样本计算所有的基因表达量,所以会生成一个个独立的文件,我用perl脚本模仿它的结果如下: $ head...

    生信技能树

扫码关注云+社区

领取腾讯云代金券