[noip2010]乌龟棋

要注意读题,他已经在第一个格子,所以每走一步取得是再+1的格子中的数

program tt;
var n,m,i,b,j,k,l:longint;
    a:array[0..350]of longint;
    f:array[-1..40,-1..40,-1..40,-1..40]of longint;
    c:array[1..4]of longint;
function max(a,b:longint):longint;
begin
 if a<b then max:=b else max:=a;
end;
begin
 read(n,m);
 for i:=1 to n do read(a[i]);
 for i:=1 to m do
  begin
   read(b);
   c[b]:=c[b]+1;
  end;
 for i:=0 to c[1] do
  for j:=0 to c[2] do
   for k:=0 to c[3] do
    for l:=0 to c[4] do
     f[i,j,k,l]:=max(f[i-1,j,k,l],max(f[i,j-1,k,l],max(f[i,j,k-1,l],f[i,j,k,l-1])))+a[i+j*2+k*3+l*4+1];
 writeln(f[c[1],c[2],c[3],c[4]]);
end.
 


你可能感兴趣的:([noip2010]乌龟棋)