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.