RQNOJ 599(等价替代法）

查看题目 Show Problem

题目:[NOIP2010]乌龟棋

问题编号:599

题目描述

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

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

【数据范围】
对于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=Σb_i (1<=i<=M)

输入格式

输入文件的每行中两个数之间用一个空格隔开。
第1 行2 个正整数N 和M，分别表示棋盘格子数和爬行卡片数。
第2 行N 个非负整数，a1, a2, ……, aN，其中ai 表示棋盘第i 个格子上的分数。
第3 行M 个整数，b1,b2, ……, bM，表示M 张爬行卡片上的数字。
输入数据保证到达终点时刚好用光M 张爬行卡片，即N−；；1=Σb_i (1<=i<=M)

输出格式

输出只有1 行，1 个整数，表示小明最多能得到的分数。

样例输入

【输入输出样例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

样例输出

【输入输出样例1】
73


【输入输出样例2】
455



注意到本题每一个m<=40

且n,m1,m2,m3,m4只要能确定4个，另1个就能推出来

故可构造状态f[m1,m2,m3,m4] 

O(40^4) 稳过

Program chess;const   maxn=350;   maxm=120;   maxmi=40;var   n,m,i,j,k,l,p,cost:longint;   a:array[1..maxn] of longint;   f:array[0..maxmi,0..maxmi,0..maxmi,0..maxmi] of longint;   totcard:array[1..4] of longint;function max(a,b:longint):longint;begin   if a<b then exit(b) else exit(a);end;begin   readln(n,m);   for i:=1 to n do read(a[i]);   fillchar(totcard,sizeof(totcard),0);   for i:=1 to m do   begin      read(p);      inc(totcard[p]);   end;   fillchar(f,sizeof(f),0);   f[0,0,0,0]:=a[1];   for i:=0 to totcard[1] do      for j:=0 to totcard[2] do         for k:=0 to totcard[3] do            for l:=0 to totcard[4] do               if (i+j+k+l>0) then               begin                  cost:=a[1+i*1+j*2+k*3+l*4];                  if i>0 then f[i,j,k,l]:=max(f[i,j,k,l],f[i-1,j,k,l]);                  if j>0 then f[i,j,k,l]:=max(f[i,j,k,l],f[i,j-1,k,l]);                  if k>0 then f[i,j,k,l]:=max(f[i,j,k,l],f[i,j,k-1,l]);                  if l>0 then f[i,j,k,l]:=max(f[i,j,k,l],f[i,j,k,l-1]);                  inc(f[i,j,k,l],cost);               end;   writeln(f[totcard[1],totcard[2],totcard[3],totcard[4]]);end.