很少有人知道奶牛爱吃苹果。农夫约翰的农场上有两棵苹果树（编号为1和2），每一棵树上都长满了苹果。奶牛贝茜无法摘下树上的苹果，所以她只能等待苹果从树上落下。但是，由于苹果掉到地上会摔烂，贝茜必须在半空中接住苹果（没有人爱吃摔烂的苹果）。贝茜吃东西很快，所以她接到苹果后仅用几秒钟就能吃完。
? 每一分钟，两棵苹果树其中的一棵会掉落一个苹果。贝茜已经过了足够的训练，只要站在树下就一定能接住这棵树上掉落的苹果。同时，贝茜能够在两棵树之间快速移动（移动时间远少于1分钟），因此当苹果掉落时，她必定站在两棵树其中的一棵下面。此外，奶牛不愿意不停地往返于两棵树之间，因此会错过一些苹果。
? 每一分钟，两棵苹果树其中的一棵会掉落一个苹果。贝茜已经过了足够的训练，只要站在树下就一定能接住这棵树上掉落的苹果。同时，贝茜能够在两棵树之间快速移动（移动时间远少于1分钟），因此当苹果掉落时，她必定站在两棵树其中的一棵下面。此外，奶牛不愿意不停地往返于两棵树之间，因此会错过一些苹果。
? 苹果每分钟掉落一个，共T（1<=T<=1000）分钟，贝茜最多愿意移动W（1<=W<=30）次。现给出每分钟掉落苹果的树的编号，要求判定贝茜能够接住的最多苹果数。开始时贝茜在1号树下。
题解
DP。
开始在1号树下，
代码
varb:array[0..1000,0..30] of longint;s:array[1..1000] of longint;n,m,max:longint;
function main(x,y:longint):longint;
beginif y mod 2=0 thenbeginif s[x]=1 thenexit(1)else exit(0)endelseif s[x]=1 thenexit(0)else exit(1);
end;
vari,j:longint;
beginassign(input,'bcatch.in');reset(input);assign(output,'bcatch.out');rewrite(output);readln(n,m);for i:=1 to n do readln(s[i]);for i:=1 to n dofor j:=0 to m dobeginb[i,j]:=b[i-1,j]+main(i,j);if j<>0 thenif b[i,j]<b[i-1,j-1]+main(i,j+1) thenb[i,j]:=b[i-1,j-1]+main(i,j+1);end;max:=0;for i:=0 to m doif max<b[n,i] then max:=b[n,i];writeln(max);close(input);close(output);
end.
