NOIP 2010 [乌龟棋]

小明过生日的时候，爸爸送给他一副乌龟棋当作礼物。
乌龟棋的棋盘是一行N 个格子，每个格子上一个分数（非负整数）。棋盘第1 格是唯一
的起点，第N 格是终点，游戏要求玩家控制一个乌龟棋子从起点出发走到终点。
1 2 3 4 5 …… N
乌龟棋中M 张爬行卡片，分成4 种不同的类型（M 张卡片中不一定包含所有4 种类型
的卡片，见样例），每种类型的卡片上分别标有1、2、3、4 四个数字之一，表示使用这种卡
片后，乌龟棋子将向前爬行相应的格子数。游戏中，玩家每次需要从所有的爬行卡片中选择
一张之前没有使用过的爬行卡片，控制乌龟棋子前进相应的格子数，每张卡片只能使用一次。
游戏中，乌龟棋子自动获得起点格子的分数，并且在后续的爬行中每到达一个格子，就得到
该格子相应的分数。玩家最终游戏得分就是乌龟棋子从起点到终点过程中到过的所有格子的
分数总和。
很明显，用不同的爬行卡片使用顺序会使得最终游戏的得分不同，小明想要找到一种卡
片使用顺序使得最终游戏得分最多。
现在，告诉你棋盘上每个格子的分数和所有的爬行卡片，你能告诉小明，他最多能得到
多少分吗？输入格式 Input Format 输入文件的每行中两个数之间用一个空格隔开。
第1 行2 个正整数N和M，分别表示棋盘格子数和爬行卡片数。
第2 行N 个非负整数，a1,a2,……,aN，其中ai 表示棋盘第i个格子上的分数。
第3 行M 个整数，b1,b2, ……, bM，表示M张爬行卡片上的数字。
输入数据保证到达终点时刚好用光M张爬行卡片输出格式 Output Format 输出只有1 行，1 个整数，表示小明最多能得到的分数。样例输入 Sample Input [复制数据]   

输入样例1

9 5

6 10 14 2 8 8 18 5 17

1 3 1 2 1

输入样例2

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 [复制数据]   

输出样例1

73

输出样例2

455

时间限制 Time Limitation 各个测试点1s
注释 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。

这道题是一个动态规划问题，可以把4种棋子划分为一种状态，开一个四维的 f 数组，初始化为 f[0,0,0,0]:=a[1]; 计算出每一种棋子的个数。

dp方程：f[i1,i2,i3,i4]:=max(f[i11,i2,i3,i4]+a[i1*1+i2*2+i3*3+i4*4+1],f[i1,i2-1,i3,i4]+a[i1*1+i2*2+i3*3+i4*4+1],f[i1,i2,i3-1,i4]+a[i1*1+i2*2+i3*3+i4*4+1],f[i1,i2,i3,i4-1]+a[i1*1+i2*2+i3*3+i4*4+1]);

 从四个中找出最大的……

【参考程序】

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.