PKU1042 gone fishing

      今天练习的项目是贪心，于是就做了这道gone fishing。

      可能贪心的思路很简单，但真正在实战中并不一定送你个贪心就能轻易证明出贪心的正确性。但一旦贪心策略被证明是对的，那么效率必定是很快的。 这道题的思路是枚举经过的湖的总数目，在总时间中减去路上移动多用的时间。接着就是贪心步骤——钓鱼时每次都选取所剩余的与最多的湖。思路有了，实现就很简单了，可以直接枚举，还可以配合最大根堆（但我没用，毕竟n不大于25…）。

      另外，需要注意初始化时所设的值！

program gone_fishing; var f,d,e,t,time,ans:array[0..30] of longint; n,h,ansnow,tmp:longint; firstwrite:boolean; procedure init; var i:longint; begin readln(h); h:=h*60; for i:=1 to n do read(f[i]); readln; for i:=1 to n do read(d[i]); readln; for i:=1 to n-1 do read(t[i]); t[0]:=0; readln; end; function check:boolean; var i:longint; begin if tmp < ansnow then exit(false); if tmp > ansnow then exit(true); for i:=1 to n do if ans[i] > time[i] then exit(false) else if ans[i] < time[i] then exit(true); exit(false); end; procedure main; var k,i,j,p,q,sum:longint; begin ansnow:=-1; for k:=0 to n-1 do begin dec(h,5*t[k]); e:=f; tmp:=0; fillchar(time,sizeof(time),0); for i:=1 to h div 5 do begin q:=0; p:=0; for j:=1 to k+1 do if e[j]>q then begin q:=e[j]; p:=j; end; if p = 0 then break; inc(tmp,e[p]); inc(time[p]); dec(e[p],d[p]); end; if check then begin ansnow:=tmp; ans:=time; sum:=0; for i:=1 to n do inc(sum,time[i]); inc(ans[1],h div 5-sum) end; end; end; procedure outit; var i:longint; begin if firstwrite then writeln else firstwrite:=true; for i:=1 to n-1 do write(ans[i]*5,', '); writeln(ans[n]*5); writeln('Number of fish expected: ',ansnow); end; begin assign(input,'a.in'); reset(input); assign(output,'a.out'); rewrite(output); readln(n); firstwrite:=false; while n<>0 do begin init; main; outit; readln(n); end; close(input); close(output); end.