1057: [ZJOI2007]棋盘制作 - BZOJ

Description

国际象棋是世界上最古老的博弈游戏之一，和中国的围棋、象棋以及日本的将棋同享盛名。据说国际象棋起源于易经的思想，棋盘是一个8*8大小的黑白相间的方阵，对应八八六十四卦，黑白对应阴阳。而我们的主人公小Q，正是国际象棋的狂热爱好者。作为一个顶尖高手，他已不满足于普通的棋盘与规则，于是他跟他的好朋友小W决定将棋盘扩大以适应他们的新规则。小Q找到了一张由N*M个正方形的格子组成的矩形纸片，每个格子被涂有黑白两种颜色之一。小Q想在这种纸中裁减一部分作为新棋盘，当然，他希望这个棋盘尽可能的大。不过小Q还没有决定是找一个正方形的棋盘还是一个矩形的棋盘（当然，不管哪种，棋盘必须都黑白相间，即相邻的格子不同色），所以他希望可以找到最大的正方形棋盘面积和最大的矩形棋盘面积，从而决定哪个更好一些。于是小Q找到了即将参加全国信息学竞赛的你，你能帮助他么？
Input

第一行包含两个整数N和M，分别表示矩形纸片的长和宽。接下来的N行包含一个N * M的01矩阵，表示这张矩形纸片的颜色（0表示白色，1表示黑色）。
Output

包含两行，每行包含一个整数。第一行为可以找到的最大正方形棋盘的面积，第二行为可以找到的最大矩形棋盘的面积（注意正方形和矩形是可以相交或者包含的）。
Sample Input
3 3
1 0 1
0 1 0
1 0 0
Sample Output
4
6
HINT

对于20%的数据，N, M ≤ 80 对于40%的数据，N, M ≤ 400 对于100%的数据，N, M ≤ 2000

唉，又搞错了，把m打成了n，0ms就WA了（第一个数据就错了）

话说以前做过一道差不多的题，叫做玉嶦宫

然后就直接用了它的模型

 const
     maxn=;
 var
     n,m,ans1,ans2:longint;
     a,s:array[..maxn,..maxn]of longint;

 function max(x,y:longint):longint;
 begin
     if x>y then exit(x);
     exit(y);
 end;

 function min(x,y:longint):longint;
 begin
     if x<y then exit(x);
     exit(y);
 end;

 procedure init;
 var
     i,j:longint;
 begin
     read(n,m);
     for i:= to n do
       for j:= to m do
         read(a[i,j]);
     for i:= to m do
       s[,i]:=;
     for i:= to n do
       for j:= to m do
         if a[i,j]<>a[i-,j] then s[i,j]:=s[i-,j]+
         else s[i,j]:=;
 end;

 var
     w,h:array[..maxn]of longint;
     tot:longint;

 procedure insert(x:longint);
 var
     k:longint;
 begin
     k:=;
     while (tot>)and(h[tot]>=x) do
       begin
         inc(k,w[tot]);
         ans1:=max(ans1,sqr(min(h[tot],k)));
         ans2:=max(ans2,h[tot]*k);
         dec(tot);
       end;
     inc(tot);
     h[tot]:=x;
     w[tot]:=k+;
 end;

 procedure work;
 var
     i,j:longint;
 begin
     for i:= to n do
       begin
         tot:=;
         for j:= to m do
           if (tot=)or(a[i,j]<>a[i,j-]) then insert(s[i,j])
           else
             begin
               insert();
               tot:=;
               insert(s[i,j]);
             end;
         insert();
       end;
     writeln(ans1);
     writeln(ans2);
 end;

 begin
     init;
     work;
 end.