小明過生日的時候，爸爸送給他一副烏龜棋當作禮物。 烏龜棋的棋盤是一行N個格子，每個格子上一個分數（非負整數）。棋盤第1格是唯一 的起點，第N格是終點，遊戲要求玩家控制一個烏龜棋子從起點出發走到終點。
…… 1 2 3 4 5 ……N 烏龜棋中M張爬行卡片，分成4種不同的類型（M張卡片中不一定包含所有4種類型 的卡片，見樣例），每種類型的卡片上分別標有1、2、3、4四個數字之一，表示使用這種卡 片後，烏龜棋子將向前爬行相應的格子數。遊戲中，玩家每次需要從所有的爬行卡片中選擇 一張之前沒有使用過的爬行卡片，控制烏龜棋子前進相應的格子數，每張卡片只能使用一次。 遊戲中，烏龜棋子自動獲得起點格子的分數，並且在後續的爬行中每到達一個格子，就得到 該格子相應的分數。玩家最終遊戲得分就是烏龜棋子從起點到終點過程中到過的所有格子的 分數總和。 很明顯，用不同的爬行卡片使用順序會使得最終遊戲的得分不同，小明想要找到一種卡 片使用順序使得最終遊戲得分最多。 現在，告訴你棋盤上每個格子的分數和所有的爬行卡片，你能告訴小明，他最多能得到 多少分嗎？
輸入的每行中兩個數之間用一個空格隔開。 第1行2個正整數N和M，分別表示棋盤格子數和爬行卡片數。 第2行N個非負整數，a1a2……aN
，其中ai表示棋盤第i個格子上的分數。 第3行M個整數，b1b2……bM
，表示M張爬行卡片上的數字。 輸入數據保證到達終點時剛好用光M張爬行卡片，即N - 1=∑(1->M) bi
輸出一行一個整數
分析：一開始想錯了，所以dpdpdp都錯了。後來看了下題解才知道可以用四維dp來解。狀態轉移方程： f[i,j,k,l]:=max(max(max(f[i-1,j,k,l],f[i,j-1,k,l]),f[i,j,k-1,l]),f[i,j,k,l-1]);
代碼：
uses math;
const
maxn=40;
var
a:array [0..maxn*10] of longint;
c:array [1..maxn div 10] of integer;
n,m,sum,num:longint;
f:array [-1..maxn,-1..maxn,-1..maxn,-1..maxn] of longint;
procedure init;
var
i,j:longint;
begin
readln(n,m);
for i:=1 to n do
read(a[i]);
for i:=1 to m do
begin
read(num);
inc(c[num]);
end;
end;
procedure main;
var
i,j,k,l:longint;
begin
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
begin
sum:=i+j*2+k*3+l*4+1;
f[i,j,k,l]:=max(max(max(f[i-1,j,k,l],f[i,j-1,k,l]),f[i,j,k-1,l]),f[i,j,k,l-1]);
f[i,j,k,l]:=f[i,j,k,l]+a[sum];
end;
writeln(f[c[1],c[2],c[3],c[4]]);
end;
begin
init;
main;
end.