鲁宾逊先生有一只宠物猴,名叫多多。这天,他们两个正沿着乡间小路散步,突然发现路边的告示牌上贴着一张小小的纸条:“欢迎免费品尝我种的花生!——熊字”。
鲁宾逊先生和多多都很开心,因为花生正是他们的最爱。在告示牌背后,路边真的有一块花生田,花生植株整齐地排列成矩形网格(如图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.