背包DP：乌龟棋

题目描述 

Description

小明过生日的时候，爸爸送给他一副乌龟棋当作礼物。 乌龟棋的棋盘是一行N个格子，每个格子上一个分数（非负整数）。棋盘第1格是唯一 的起点，第N格是终点，游戏要求玩家控制一个乌龟棋子从起点出发走到终点。

…… 1 2 3 4 5 ……N 乌龟棋中M张爬行卡片，分成4种不同的类型（M张卡片中不一定包含所有4种类型 的卡片，见样例），每种类型的卡片上分别标有1、2、3、4四个数字之一，表示使用这种卡 片后，乌龟棋子将向前爬行相应的格子数。游戏中，玩家每次需要从所有的爬行卡片中选择 一张之前没有使用过的爬行卡片，控制乌龟棋子前进相应的格子数，每张卡片只能使用一次。 游戏中，乌龟棋子自动获得起点格子的分数，并且在后续的爬行中每到达一个格子，就得到 该格子相应的分数。玩家最终游戏得分就是乌龟棋子从起点到终点过程中到过的所有格子的 分数总和。 很明显，用不同的爬行卡片使用顺序会使得最终游戏的得分不同，小明想要找到一种卡 片使用顺序使得最终游戏得分最多。 现在，告诉你棋盘上每个格子的分数和所有的爬行卡片，你能告诉小明，他最多能得到 多少分吗？

输入描述 Input Description

输入的每行中两个数之间用一个空格隔开。 第1行2个正整数N和M，分别表示棋盘格子数和爬行卡片数。 第2行N个非负整数，a1a2……aN

，其中ai表示棋盘第i个格子上的分数。 第3行M个整数，b1b2……bM

，表示M张爬行卡片上的数字。 输入数据保证到达终点时刚好用光M张爬行卡片，即N - 1=∑(1->M) bi

输出描述 Output Description

输出一行一个整数

样例输入 Sample Input

13 8

4 96 10 64 55 13 94 53 5 24 89 8 30

1 1 1 1 1 2 4 1

样例输出 Sample Output

455

数据范围及提示 

Data Size & Hint

【数据范围】

对于30%的数据有1 ≤ N≤ 30，1 ≤M≤ 12。

对于50%的数据有1 ≤ N≤ 120，1 ≤M≤ 50，且4 种爬行卡片，每种卡片的张数不会超

过20。

对于100%的数据有1 ≤ N≤ 350，1 ≤M≤ 120，且4 种爬行卡片，每种卡片的张数不会

超过40；0 ≤ ai ≤ 100，1 ≤ i ≤ N；1 ≤ bi ≤ 4，1 ≤ i ≤M。输入数据保证N−1=ΣM

i b1

假设剩余t1张1，t2张2，t3张3，t4张4，最大得分为f[t1,t2,t3,t4]
那么向前推，上一会可能取走的是1,2,3,4，最大值在里面

var a,b:array[1..350] of longint;
    f:array[0..40,0..40,0..40,0..40] of longint;
    n,i,j,k,m,t1,t2,t3,t4,i1,i2,i3,i4:longint;
begin
  readln(n,m);
   for i:=1 to n do
    read(a[i]);      //每一点权值
   for j:=1 to m do  
    begin
     read(b[j]);    //每一种牌数
     if b[j]=1 then inc(t1);
     if b[j]=2 then inc(t2);
     if b[j]=3 then inc(t3);
     if b[j]=4 then inc(t4);
    end;
   f[0,0,0,0]:=a[1];
  for i1:=0 to t1 do
   for i2:=0 to t2 do
    for i3:=0 to t3 do
     for i4:=0 to t4 do
      begin
       if (i1>0)and(f[i1-1,i2,i3,i4]+a[i1*1+i2*2+i3*3+i4*4+1]>f[i1,i2,i3,i4]) 
          then f[i1,i2,i3,i4]:=f[i1-1,i2,i3,i4]+a[i1*1+i2*2+i3*3+i4*4+1];
 
       if (i2>0)and(f[i1,i2-1,i3,i4]+a[i1*1+i2*2+i3*3+i4*4+1]>f[i1,i2,i3,i4]) 
          then f[i1,i2,i3,i4]:=f[i1,i2-1,i3,i4]+a[i1*1+i2*2+i3*3+i4*4+1];
 
       if (i3>0)and(f[i1,i2,i3-1,i4]+a[i1*1+i2*2+i3*3+i4*4+1]>f[i1,i2,i3,i4]) 
          then f[i1,i2,i3,i4]:=f[i1,i2,i3-1,i4]+a[i1*1+i2*2+i3*3+i4*4+1];
 
       if (i4>0)and(f[i1,i2,i3,i4-1]+a[i1*1+i2*2+i3*3+i4*4+1]>f[i1,i2,i3,i4]) 
          then f[i1,i2,i3,i4]:=f[i1,i2,i3,i4-1]+a[i1*1+i2*2+i3*3+i4*4+1];
      end;
    writeln(f[t1,t2,t3,t4]);
end.