明明的随机数
题目描述
明明想在学校中请一些同学一起做一项问卷调查,为了实验的客观性,他先用计算机生成了N个1到1000之间的随机整数(N≤100),对于其中重复的数字,只保留一个,把其余相同的数去掉,不同的数对应着不同的学生的学号。然后再把这些数从小到大排序,按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。
输入输出格式
输入格式:输入有2行,第1行为1个正整数,表示所生成的随机数的个数:
N 第2行有N个用空格隔开的正整数,为所产生的随机数。
输出格式:输出也是2行,第1行为1个正整数M,表示不相同的随机数的个数。第2行为M个用空格隔开的正整数,为从小到大排好序的不相同的随机数。
输入输出样例
10 20 40 32 67 40 20 89 300 400 15
8 15 20 32 40 67 89 300 400
说明
NOIP 2006 普及组 第一题
var
i,j,k,l,n,m:longint;
a:array[0..1000000,1..2]of longint;
procedure dfs(l,r:longint);//快排排序
var
i,j,k,m:longint;
begin
if l>=r then exit;
i:=l;j:=r;m:=a[l+random(r-l+1),1];
repeat
while (a[i,1]<m) do inc(i);
while (a[j,1]>m) do dec(j);
if i<=j then begin
k:=a[i,1];a[i,1]:=a[j,1];a[j,1]:=k;
k:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=k;
inc(i);dec(j);
end;
until i>j;
dfs(l,j);
dfs(i,r);
end;
begin
read(n);
for i:=1 to n do begin read(a[i,1]); a[i,2]:=1;end;//输入
for i:=1 to n do
for j:=i+1 to n do
if a[i,1]=a[j,1] then a[j,2]:=0;//标记去重
randomize;
dfs(1,n);
for i:=1 to n do
if a[i,2]=1 then inc(l);
writeln(l);
for i:=1 to n do
if a[i,2]=1 then write(a[i,1],' ');
end.