3384/1750: [Usaco2004 Nov]Apple Catching 接苹果
Time Limit: 1 Sec Memory Limit: 128 MB
Submit: 18 Solved: 16
[Submit][Status][Discuss]
Description
很少有人知道奶牛爱吃苹果.农夫约翰的农场上有两棵苹果树(编号为1和2),每一棵树上都长满了苹果.奶牛贝茜无法摘下树上的苹果,所以她只能等待苹果从树上落下.但是,由于苹果掉到地上会摔烂,贝茜必须在半空中接住苹果(没有人爱吃摔烂的苹果).贝茜吃东西很快,所以她接到苹果后仅用几秒钟就能吃完.每一分钟,两棵苹果树其中的一棵会掉落一个苹果.贝茜已经过了足够的训练,只要站在树下就一定能接住这棵树上掉落的苹果.同时,贝茜能够在两棵树之间快速移动(移动时间远少于1分钟),因此当苹果掉落时,她必定站在两棵树其中的一棵下面.此外,奶牛不愿意不停地往返于两棵树之间,因此会错过一些苹果, 苹果每分钟掉落一个,共T(1≤T≤1000)分钟,贝茜最多愿意移动W(I≤w≤30)次.现给
出每分钟掉落苹果的树的编号,要求判定贝茜能够接住的最多苹果数.开始时贝茜在1号树下.
Input
第1行:由空格隔开的两个整数T和W.
第2到T+1行:1或2(每分钟掉落苹果的树的编号).
Output
在贝茜移动次数不超过W的前提下她能接到的最多苹果数
Sample Input
7 2
2
1
1
2
2
1
1
Sample Output
6
HINT
7分钟内共掉落7个苹果一一第1个从第2棵树上掉落,接下来的2个苹果从第1棵树上掉落,再接下来的2个从第2棵树上掉落,最后2个从第1棵树上掉落. 贝茜不移动直到接到从第1棵树上掉落的两个苹果,然后移动到第2棵树下,直到接到从第2棵
树上掉落的两个苹果,最后移动到第1棵树下,接住最后两个从第1棵树上掉落的苹果.这样贝茜共接住6个苹果.
Source
题解:一道有趣的DP问题,设f[i,j,k]表示现在时间为i,已经跑了j次,当前在k树下面的最优解,于是f[i,j,k]:=longint(a[i]=k)+min(a[i-1,j,k],a[i-1,j-1,3-k]),这两种情况分别代表直接继承上一时间位置和本次进行了一次走动,然后当a[i]=k时,longint(a[i]=k)=1,也就是苹果数+1,否则不加。。。(循环数组就是萌萌哒不解释)
1 /************************************************************** 2 Problem: 3384 3 User: HansBug 4 Language: Pascal 5 Result: Accepted 6 Time:4 ms 7 Memory:236 kb 8 ****************************************************************/ 9 10 var 11 i,j,k,l,m,n:longint; 12 a:array[0..2000] of longint; 13 b:array[0..1,0..30,1..2] of longint; 14 function max(x,y:longint):longint; 15 begin 16 if x>y then max:=x else max:=y; 17 end; 18 begin 19 readln(n,m); 20 for i:=1 to n do readln(a[i]); 21 fillchar(b,sizeof(b),0); 22 for i:=1 to n do 23 for j:=0 to m do 24 for k:=1 to 2 do 25 begin 26 l:=b[(i+1) mod 2,j,k]; 27 if j>0 then l:=max(b[(i+1) mod 2,j-1,3-k],l); 28 b[i mod 2,j,k]:=longint(a[i]=k)+l; 29 end; 30 l:=0; 31 for i:=0 to m do 32 for j:=1 to 2 do 33 l:=max(l,b[n mod 2,i,j]); 34 writeln(l); 35 readln; 36 end.
呵呵呵我会告诉你下面还有一遍?么么哒我是有多无聊= =(HansBug:不过双倍经验还是好评如潮^_^)
1 /************************************************************** 2 Problem: 1750 3 User: HansBug 4 Language: Pascal 5 Result: Accepted 6 Time:4 ms 7 Memory:236 kb 8 ****************************************************************/ 9 10 var 11 i,j,k,l,m,n:longint; 12 a:array[0..2000] of longint; 13 b:array[0..1,0..30,1..2] of longint; 14 function max(x,y:longint):longint; 15 begin 16 if x>y then max:=x else max:=y; 17 end; 18 begin 19 readln(n,m); 20 for i:=1 to n do readln(a[i]); 21 fillchar(b,sizeof(b),0); 22 for i:=1 to n do 23 for j:=0 to m do 24 for k:=1 to 2 do 25 begin 26 l:=b[(i+1) mod 2,j,k]; 27 if j>0 then l:=max(b[(i+1) mod 2,j-1,3-k],l); 28 b[i mod 2,j,k]:=longint(a[i]=k)+l; 29 end; 30 l:=0; 31 for i:=0 to m do 32 for j:=1 to 2 do 33 l:=max(l,b[n mod 2,i,j]); 34 writeln(l); 35 readln; 36 end.