2007纪念品分组

Posted 2020-08-09

题目描述 Description

元旦快到了，校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得的纪念品价值相对均衡，他要把购来的纪念品根据价格进行分组，但每组最多只能包括两件纪念品，并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品，乐乐希望分组的数目最少。

你的任务是写一个程序，找出所有分组方案中分组数最少的一种，输出最少的分组数目。

输入描述 Input Description

包含n+2行：

第1行包括一个整数w，为每组纪念品价格之和的上限。

第2行为一个整数n，表示购来的纪念品的总件数。

第3~n+2行每行包含一个正整数pi (5 <= pi <= w)，表示所对应纪念品的价格。

输出描述 Output Description

仅一行，包含一个整数，即最少的分组数目。

样例输入 Sample Input

100

9

90

20

20

30

50

60

70

80

90

样例输出 Sample Output

6

数据范围及提示 Data Size & Hint

50%的数据满足：1 <= n <= 15

100%的数据满足：1 <= n <= 30000, 80 <= w <= 200

 

 

题解：

贪心。

先从小到大快排，找出最后一个数，判断能不能于第一个数组合，能就组合掉，不能就单独一个（注意：组合掉的必须忽略）。

var m,n,i,j,ans:longint;

    a:array[0..30001]of longint;

procedure sort(x,y:longint);

var i,j,k:longint;

 begin

  i:=x;

  j:=y;

  k:=a[(i+j)div 2];

  while i<j do

   begin

    while a[i]<k do inc(i);

    while a[j]>k do dec(j);

    if i<=j then

     begin

      a[0]:=a[i];

      a[i]:=a[j];

      a[j]:=a[0];

      inc(i);

      dec(j);

     end;

   end;

  if x<j then sort(x,j);

  if i<y then sort(i,y);

 end;

begin

 readln(m,n);

 for i:=1 to n do read(a[i]);

 sort(1,n);

 i:=1;

 j:=n;

 while i<=j do

  begin

   if a[i]+a[j]<=m then inc(i);

   dec(j);

   inc(ans);

  end;

 write(ans);

end.