采药2 (Standard IO)

题意/Description:

        辰辰是个天资聪颖的孩子，他的梦想是成为世界上最伟大的医师。为此，他想拜附近最有威望的医师为师。医师为了判断他的资质，给他出了一个难题。医师把他带到一个到处都是草药的山洞里对他说：“孩子，这个山洞里有一些不同的草药，采每一株都需要一些时间，每一株也有它自身的价值。我会给你一段时间，在这段时间里，你可以采到一些草药。如果你是一个聪明的孩子，你应该可以让采到的草药的总价值最大。”  　　如果你是辰辰，你能完成这个任务吗？

 

读入/Input：

        输入文件的第一行包含两个正整数N,M。M表示总共能够用来采药的时间，N代表山洞里的草药的数目。接下来的N行每行包括两个的整数，分别表示采摘某株草药的时间Ti和这株草药的价值Vi。

 

输出/Output：

       输出文件仅包含一个整数表示规定时间内可以采到的草药的最大总价值。

 

题解/solution：

       做完的中午，liangzihao1与猪的讨论，得出题解。重点是Ti，Vi<=10，所以最多只有100种可能。把每一时间的价值从大到小排序，用一个数组F表示在地i个时间的最优值。

 

代码/Code：

var
  n,time:longint;
  num:array [0..11] of longint;
  f:array [0..100001] of longint;
  a,b:array [0..100001,0..11] of longint;
procedure qsort(l,r,k:longint);
var
  i,j,mid,t:longint;
begin
  i:=l; j:=r;
  mid:=a[(l+r) div 2,k];
  repeat
    while a[i,k]>mid do inc(i);
    while a[j,k]<mid do dec(j);
    if i<=j then
      begin
        t:=a[i,k]; a[i,k]:=a[j,k]; a[j,k]:=t;
        inc(i); dec(j);
    end;
  until i>j;
  if l<j then qsort(l,j,k);
  if i<r then qsort(i,r,k);
end;

procedure init;
var
  i,x:longint;
begin
  readln(n,time);
  for i:=1 to n do
    begin
      read(x);
      inc(num[x]);
      readln(a[num[x],x]);
    end;
  for i:=1 to 10 do
    qsort(1,num[i],i);
end;

procedure main;
var
  i,j:longint;
begin
  for i:=0 to time do
    for j:=1 to 10 do
      if b[i,j]<num[j] then
        if f[i+j]<f[i]+a[b[i,j]+1,j] then
          begin
            f[i+j]:=f[i]+a[b[i,j]+1,j];
            b[i+j]:=b[i];
            b[i+j,j]:=b[i,j]+1;
          end;
 write(f[time]);
end;

begin
  init;
  main;
end.