明明的随机数

明明的随机数

题目描述

明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了N个1到1000之间的随机整数（N≤100），对于其中重复的数字，只保留一个，把其余相同的数去掉，不同的数对应着不同的学生的学号。然后再把这些数从小到大排序，按照排好的顺序去找同学做调查。请你协助明明完成“去重”与“排序”的工作。

输入输出格式

输入格式：

输入有2行，第1行为1个正整数，表示所生成的随机数的个数：
N 第2行有N个用空格隔开的正整数，为所产生的随机数。

输出格式：

输出也是2行，第1行为1个正整数M，表示不相同的随机数的个数。第2行为M个用空格隔开的正整数，为从小到大排好序的不相同的随机数。

输入输出样例

输入样例#1：

10
20 40 32 67 40 20 89 300 400 15

输出样例#1：

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)
4000
;

  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.