洛谷1059明明的随机数

题意

给出n个数，从小到大排序，去掉重复的数字，输出有多少种数字出现了，并输出这些数字。

题解

先快排，然后去重，最后输出。
时间复杂度O(n log n)

代码

var
  n,m,i:longint;
  a,b:array[1..100000]of longint;

procedure qsort(l,r:longint);
var
  i,j,key,t:longint;
begin
  if l>=r then exit;
  i:=l;j:=r;
  key:=a[(l+r)div 2];
  repeat
    while (a[i]<key)and(i<r) do inc(i);
    while (a[j]>key)and(j>l) do dec(j);
    if i<=j then
      begin
        t:=a[i];
        a[i]:=a[j];
        a[j]:=t;
        inc(i);dec(j);
      end;
  until i>j;
  qsort(i,r);
  qsort(l,j);
end;

begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  qsort(1,n);
  b[1]:=a[1];
  m:=1;
  for i:=2 to n do
    if a[i]>b[m] then 
    begin inc(m);b[m]:=a[i];end;
  writeln(m);
  for i:=1 to m do
    write(b[i],' ');
end.