问题
描述 Description
小明过生日的时候,爸爸送给他一副乌龟棋当作礼物。
乌龟棋的棋盘是一行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 个整数,表示小明最多能得到的分数。
输入样例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
分析
读题之后我们就发现是动归,关键是状态表示,f[a1,a2,a3,a4]表示用a1个1号卡片,a2个2号卡片,……能得到的最优值,然后我们可以得到这样的方程
f[a1,a2,a3,a4]:=max(f[a1-1,a2,a3,a4],
f[a1,a2-1,a3,a4],
f[a1,a2,a3-1,a4],
f[a1,a2,a3,a4-1])+a[a1+a2*2+a3*3+a4*4+1];
显然,该方程无后效性
每张卡片要从0开始循环,边界和初值都赋为0即可。
数据范围,计算时间复杂度为40*40*40*40
code
![ContractedBlock.gif](https://i-blog.csdnimg.cn/blog_migrate/8f900a89c6347c561fdf2122f13be562.gif)
![ExpandedBlockStart.gif](https://i-blog.csdnimg.cn/blog_migrate/961ddebeb323a10fe0623af514929fc1.gif)
var
a: array [ 1 .. 350 ] of longint;
f: array [ - 1 .. 40 , - 1 .. 40 , - 1 .. 40 , - 1 .. 40 ] of longint;
tot: array [ 1 .. 4 ] of longint;
n,m:longint;
function max(a,b,c,d:longint):longint;
begin
max: = a;
if b > max then max: = b;
if c > max then max: = c;
if d > max then max: = d;
end ;
procedure init;
var
i,x:longint;
begin
readln(n,m);
for i: = 1 to n do
read(a[i]);
for i: = 1 to m do
begin
read(x);
inc(tot[x]);
end ;
end ;
procedure doit;
var
a1,a2,a3,a4:longint;
begin
for a1: = 0 to tot[ 1 ] do
for a2: = 0 to tot[ 2 ] do
for a3: = 0 to tot[ 3 ] do
for a4: = 0 to tot[ 4 ] do
f[a1,a2,a3,a4]: = max(f[a1 - 1 ,a2,a3,a4],
f[a1,a2 - 1 ,a3,a4],
f[a1,a2,a3 - 1 ,a4],
f[a1,a2,a3,a4 - 1 ]) + a[a1 + a2 * 2 + a3 * 3 + a4 * 4 + 1 ];
writeln(f[tot[ 1 ],tot[ 2 ],tot[ 3 ],tot[ 4 ]]);
end ;
begin
init;
doit;
end .
反思
状态表示比方程本身重要,找到最合适的状态表示,才有正确的方程。悔恨………………