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。

程序：

vara,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.