codeves天梯 花生采摘

鲁宾逊先生有一只宠物猴，名叫多多。这天，他们两个正沿着乡间小路散步，突然发现路边的告示牌上贴着一张小小的纸条：“欢迎免费品尝我种的花生！——熊字”。

 

鲁宾逊先生和多多都很开心，因为花生正是他们的最爱。在告示牌背后，路边真的有一块花生田，花生植株整齐地排列成矩形网格（如图1）。有经验的多多一眼就能看出，每棵花生植株下的花生有多少。为了训练多多的算术，鲁宾逊先生说：“你先找出花生最多的植株，去采摘它的花生；然后再找出剩下的植株里花生最多的，去采摘它的花生；依此类推，不过你一定要在我限定的时间内回到路边。”

分析：这题的做法是贪心，我的做法和搜索大同小异。先按时间由小到大排序，每次都由当前的状态拓展取果实，若结果更优则直接更新，当时间不足时直接退出。

const
  maxn=401;

var
  a:array [0..maxn,1..3] of longint;
  m,n,k,p,q,ans:longint;

procedure init;
var
  i,j,s:longint;
begin
  readln(m,n,k);
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          read(s);
          if s>0 then
            begin
              inc(p);
              a[p,1]:=i;
              a[p,2]:=j;
              a[p,3]:=s;
            end;
        end;
      readln;
    end;
end;

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

procedure main;
var
  i,j,q:longint;
begin
  q:=0;
  while (k>0) and (q<p) do
    begin
      inc(q);
      if q=1 then
        begin
          ans:=ans+a[q,3];
          k:=k-a[q,1];
          k:=k-1;
        end
      else
        begin
          ans:=ans+a[q,3];
          k:=k-abs(a[q,1]-a[q-1,1]);
          k:=k-abs(a[q,2]-a[q-1,2]);
          k:=k-1;
        end;
    if k-a[q,1]<0 then ans:=ans-a[q,3];
    end;
end;

begin
  init;
  qsort(1,p);
  main;
  write(ans);
end.