Luogu P2095 营养膳食

题目描述

Mr.L正在完成自己的增肥计划。

为了增肥，Mr.L希望吃到更多的脂肪。然而也不能只吃高脂肪食品，那样的话就会导致缺少其他营养。Mr.L通过研究发现：真正的营养膳食规定某类食品不宜一次性吃超过若干份。比如就一顿饭来说，肉类不宜吃超过1份，鱼类不宜吃超过1份，蛋类不宜吃超过1份，蔬菜类不宜吃超过2份。Mr.L想要在营养膳食的情况下吃到更多的脂肪，当然Mr.L的食量也是有限的。

输入输出格式

输入格式：

第一行包含三个正整数n（n≤200）,m（m≤100）和k（k≤100）。表示Mr.L每顿饭最多可以吃m份食品，同时有n种食品供Mr.L选择，而这n种食品分为k类。第二行包含k个不超过10的正整数，表示可以吃1到k类食品的最大份数。接下来n行每行包括2个正整数，分别表示该食品的脂肪指数ai和所属的类别bi，其中ai≤100，bi≤k。

输出格式：

包括一个数字即Mr.L可以吃到的最大脂肪指数和。

输入输出样例

输入样例#1：

6 6 3
3 3 2
15 1
15 2
10 2
15 2
10 2
5 3

输出样例#1：

60

Solution

总之就是各种无脑排序贪心……

就是先把每种食品的脂肪排序，再取可以吃的最大份数装进另一个数组(d)，在用脂肪排一下序，前m份食品的脂肪和就是答案了……（应该不用解释了吧……）

（数据空间和时间上竟水的各种优化都不需要qwq）

——————分割不完全的分割线——————

以下是pascal代码：

var n,m,i,j,k,l,x,y,ans:longint;
a:array[1..100,1..200]of longint;//每类食品的脂肪
b,c,d:array[1..200]of longint;//b为每类食物吃的最大份数，c为每类食品的份数
begin
  readln(n,m,k);
  for i:=1 to k do
  read(b[i]);
  for i:=1 to n do
  begin
    readln(x,y);
    inc(c[y]);
    a[y,c[y]]:=x;
  end;
  for l:=1 to k do//每种食品的脂肪排序
  for i:=1 to c[l]-1 do
  for j:=i+1 to c[l] do
  if a[l,i]<a[l,j] then
  begin
    x:=a[l,i];
    a[l,i]:=a[l,j];
    a[l,j]:=x;
  end;
  y:=0;
  for l:=1 to k do//取可以吃的最大份数装进另一个数组(d)
  begin
    if b[l]>c[l] then
    j:=c[l]
    else
    j:=b[l];
    for i:=1 to j do
    begin
      inc(y);
      d[y]:=a[l,i];
    end;
  end;
  for i:=1 to y-1 do//用脂肪排一下序
  for j:=i+1 to y do
  if d[i]<d[j] then
  begin
    x:=d[i];
    d[i]:=d[j];
    d[j]:=x;
  end;
  for i:=1 to m do//前m份食品的脂肪和就是答案
  ans:=ans+d[i];
  writeln(ans);
end.