洛谷1059 明明的随机数 解题报告

洛谷1059 明明的随机数

本题地址： http://www.luogu.org/problem/show?pid=1059

题目描述

明明想在学校中请一些同学一起做一项问卷调查，为了实验的客观性，他先用计算机生成了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 普及组 第一题

题解

排序

很明显的一道排序题。所不同的是，本题在排序的基础上多加了一步去重操作。

我们不要着急去重，先通过排序将序列变为有序，把相同元素排在一起，再进行去重操作，这样更利于我们解题。

序列有序后，枚举序列中的每一个元素，与它后面的元素进行比较，如果相同就将当前元素赋值为-1（相当于标记为重复），注意不能赋后面的值，因为后面的值还要和更后面的值进行比较。

最后再扫一遍序列，将值不为-1的元素输出。

下面附上代码。

代码

var
  n,c,i:longint;
  a:array[1..100] of longint;
procedure qsort(head,tail:longint);
  var
    i,j,x,t:longint;
  begin
    i:=head;
    j:=tail;
    x:=a[random(tail-head+1)+head];
    while i<j do
      begin
        while a[i]<x do inc(i);
        while x<a[j] do dec(j);
        if i<=j then
          begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
            inc(i);
            dec(j);
          end;
      end;
    if head<j then qsort(head,j);
    if i<tail then qsort(i,tail);
  end;
begin
  readln(n);
  randomize;
  c:=n;
  for i:=1 to n do
    read(a[i]);
  qsort(1,n);
  for i:=1 to n-1 do
    begin
      if a[i]=a[i+1] then
        begin
          a[i]:=-1;
          dec(c);
        end;
    end;
  writeln(c);
  for i:=1 to n do
    if a[i]<>-1 then write(a[i],' ');
end.

（本文系笔者原创，未经允许不得转载）