给出N个数,要求把其中重复的去掉,只保留第一次出现的数。
例如,给出的数为1 2 18 3 3 19 2 3 6 5 4,其中2和3有重复,去除后的结果为1 2 18 3 19 6 5 4。
标签:
对于30%的数据,1 <= N <= 100,给出的数不大于100,均为非负整数;
对于50%的数据,1 <= N <= 10000,给出的数不大于10000,均为非负整数;
对于100%的数据,1 <= N <= 50000,给出的数在32位有符号整数范围内。
提示:
由于数据量很大,使用C++的同学请使用scanf和printf来进行输入输出操作,以免浪费不必要的时间。
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.
标签:
原文地址:http://www.cnblogs.com/HansBug/p/4418127.html