题目描述
在观看完战马检阅之后,来自大草原的两兄弟决心成为超级“马农”,专门饲养战马。
兄弟两回到草原,将可以养马的区域,分为 N*N 的单位面积的正方形, 并实地进行考察,归纳出了每个单位面积可以养马所获得的收益。接下来就要开始规划他们各自的马场了。
首先,两人的马场都必须是矩形区域。同时,为了方便两人互相照应,也为了防止马匹互相走散,规定两个马场的矩形区域相邻,且只有一个交点。最后,互不认输的两人希望两个马场的收益相当,这样才不会影响他们兄弟的感情。
现在,兄弟两找到你这位设计师,希望你给他们设计马场,问共有多少种设计方案。
输入
第一行一个整数 N,表示整个草原的大小为 N*N。
接下来 N 行,每行 N 个整数 A(i,j),表示第 i 行第 j 列的单位草地的收成。
(注意:收益可能是负数,养马也不是包赚的,马匹也可能出现生病死亡等意外。)
输出
输出符合两人要求的草原分配方案数。
样例输入
3
1 2 3
4 5 6
7 8 9
样例输出
2
【样例解释】
数据范围限制
【数据范围】
40%的数据, N<=10。
100%的数据, N<=50, -1000< A(i,j)<1000。
程序:
var
a,s:array[0..100,0..100] of longint;
b:array[-2500000..2500000] of longint;
c:array[1..100000] of longint;
n,i,j,k,u,x,l:longint;
ans:qword;
procedure init;
begin
readln(n);
fillchar(s,sizeof(s),0);
for i:=1 to n do for j:=1 to n do
begin
read(a[i,j]);
s[i,j]:=s[i-1,j]+s[i,j-1]-s[i-1,j-1]+a[i,j];
end;
ans:=0;
fillchar(b,sizeof(b),0);
end;
procedure work;
begin
for i:=1 to n do
for j:=1 to n do
begin
l:=0;
for k:=1 to i do
for u:=1 to j do
begin
x:=s[i,j]-s[i,u-1]-s[k-1,j]+s[k-1,u-1];
inc(b[x]);
inc(l);
c[l]:=x;
end;
for k:=i+1 to n do
for u:=j+1 to n do
begin
x:=s[k,u]-s[k,j]-s[i,u]+s[i,j];
inc(ans,b[x]);
end;
for k:=1 to l do b[c[k]]:=0;
l:=0;
for k:=1 to i do
for u:=j to n do
begin
x:=s[i,u]-s[k-1,u]-s[i,j-1]+s[k-1,j-1];
inc(b[x]);
inc(l);
c[l]:=x;
end;
for k:=i+1 to n do
for u:=1 to j-1 do
begin
x:=s[k,j-1]-s[k,u-1]-s[i,j-1]+s[i,u-1];
inc(ans,b[x]);
end;
for k:=1 to l do
b[c[k]]:=0;
end;
end;
begin
assign(input,'farmer.in');
assign(output,'farmer.out');
reset(input);
rewrite(output);
init;
work;
writeln(ans);
close(input);
close(output);
end.