JZOJ__Day 8:【普及模拟】马农

题目描述

      在观看完战马检阅之后，来自大草原的两兄弟决心成为超级“马农”，专门饲养战马。
      兄弟两回到草原，将可以养马的区域，分为 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.