讨论 / n^5 只过7个点 求指出关键优化点
火舞逆天 2013-02-25 03:50:00
点我顶贴 收藏 删除
program t93;

var h,m,n,i,j,k,k2,l,sum,max:longint; time:real;

a:array[0..32,0..50,0..50] of longint;

line:array[0..32,0..50,0..50] of longint;

s:array[0..50,0..32,0..32,0..50,0..50] of longint;

begin

readln(h,m,n);

for i:=1 to h do

for j:=1 to m do

begin

for k:=1 to n do

read(a[i,j,k]);

readln;

end;

for i:=1 to n do

for j:=1 to m do

for k:=1 to h do

line[k,j,i]:=line[k-1,j,i]+a[k,j,i];

for l:=1 to n do

for i:=1 to h do

for j:=1 to h+1-i do

for k:=1 to m do

for k2:=1 to m+1-k do

s[l,i,j,k,k2]:=s[l,i,j,k,k2-1]+line[i-1+j,k-1+k2,l]-line[i-1,k-1+k2,l];

for i:=1 to h do

for j:=1 to h+1-i do

for k:=1 to m do

for k2:=1 to m+1-k do

begin

sum:=0;

for l:=1 to n do

begin

sum:=sum+s[l,i,j,k,k2];

if sum>max then max:=sum;

if sum<0 then sum:=0;

end;

end;

write(max);

end.

#1 kingmew@2013-02-25 03:50:00
回复 删除
我也只过7个点
查看更多回复
提交回复