题目描述
帅帅经常跟同学玩一个矩阵取数游戏：对于一个给定的n*m的矩阵，矩阵中的每个元素aij均为非负整数。游戏规则如下：
1.每次取数时须从每行各取走一个元素，共n个。m次后取完矩阵所有元素；
2.每次取走的各个元素只能是该元素所在行的行首或行尾；
3.每次取数都有一个得分值，为每行取数的得分之和，每行取数的得分 = 被取走的元素值*2^i，其中i表示第i次取数（从1开始编号）；
4.游戏结束总得分为m次取数得分之和。
帅帅想请你帮忙写一个程序，对于任意矩阵，可以求出取数后的最大得分。
输入输出格式
输入格式：
输入文件game.in包括n+1行：
第1行为两个用空格隔开的整数n和m。
第2~n+1行为n*m矩阵，其中每行有m个用单个空格隔开的非负整数。
数据范围：
60%的数据满足：1<=n, m<=30，答案不超过10^16
100%的数据满足：1<=n, m<=80，0<=aij<=1000
输出格式：
输出文件game.out仅包含1行，为一个整数，即输入矩阵取数后的最大得分。
输入输出样例
输入样例#1：
2 3
1 2 3
3 4 2
输出样例#1：
82
数据大，一看就要高精度
就是dp套高精
设f[i][j]为第i个取到第j个，状态转移方程：f[i][j]=max(f[i+1][j]+a[i]*2~i,f[i][j-1]+a[j]*2~i)
其实转换得f[i][j]=max(f[i+1][j]+a[i],f[i][j-1]+a[j])~2，因为越到后面越乘得多
数据可以装换为分四层装，就避免的大规模的高精度
代码如下：
const jin=100000000;
type c=array[1..4]of longint;
function max(a,b:c):c;
var k:integer;
begin
for k:=4 downto 1 do
if a[k]>b[k] then exit(a)
else if a[k]<b[k] then exit(b);
exit(a);
end;
function jia(a,b:c):c;
var i,j,k:longint;
begin
for i:=1 to 3 do
begin
a[i]:=a[i]+b[i];
a[i+1]:=a[i+1]+a[i] div jin;a[i]:=a[i] mod jin;
end;
a[4]:=a[4]+b[4];exit(a);
end;
function jia2(a:c;b:longint):c;
begin
a[1]:=a[1]+b;
a[2]:=a[2]+a[1]div jin;
a[1]:=a[1] mod jin;
exit(a);
end;
var
f:array[0..81,0..81]of c;
sum:c;
b:array[0..81,0..81]of longint;
i,j,k,l,n,m:longint;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do read(b[i,j]);
for k:=1 to n do
begin
fillchar(f,sizeof(f),0);
for i:=m downto 1 do
for j:=i to m do
begin
f[i,j]:=max(jia2(f[i+1,j],b[k,i]),jia2(f[i,j-1],b[k,j]));
f[i,j]:=jia(f[i,j],f[i,j]);
end;
sum:=jia(sum,f[1,m]);
end;
for i:=4 downto 1 do if sum[i]>0 then begin write(sum[i]); break; end;
dec(i);
if (i=0)and(sum[1]=0) then write('0');
while i>0 do
begin
if sum[i] div 10000000=0 then write('0')
else if sum[i] div 1000000=0 then write('00')
else if sum[i] div 100000=0 then write('000')
else if sum[i] div 10000=0 then write('0000')
else if sum[i] div 1000=0 then write('00000')
else if sum[i] div 100=0 then write('000000')
else if sum[i] div 10=0 then write('0000000');
write(sum[i]);
dec(i);
end;
writeln;
end.