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了(第一个数据就错了)
话说以前做过一道差不多的题,叫做玉嶦宫
然后就直接用了它的模型
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 const 2 maxn=2020; 3 var 4 n,m,ans1,ans2:longint; 5 a,s:array[0..maxn,0..maxn]of longint; 6 7 function max(x,y:longint):longint; 8 begin 9 if x>y then exit(x); 10 exit(y); 11 end; 12 13 function min(x,y:longint):longint; 14 begin 15 if x<y then exit(x); 16 exit(y); 17 end; 18 19 procedure init; 20 var 21 i,j:longint; 22 begin 23 read(n,m); 24 for i:=1 to n do 25 for j:=1 to m do 26 read(a[i,j]); 27 for i:=1 to m do 28 s[1,i]:=1; 29 for i:=2 to n do 30 for j:=1 to m do 31 if a[i,j]<>a[i-1,j] then s[i,j]:=s[i-1,j]+1 32 else s[i,j]:=1; 33 end; 34 35 var 36 w,h:array[0..maxn]of longint; 37 tot:longint; 38 39 procedure insert(x:longint); 40 var 41 k:longint; 42 begin 43 k:=0; 44 while (tot>0)and(h[tot]>=x) do 45 begin 46 inc(k,w[tot]); 47 ans1:=max(ans1,sqr(min(h[tot],k))); 48 ans2:=max(ans2,h[tot]*k); 49 dec(tot); 50 end; 51 inc(tot); 52 h[tot]:=x; 53 w[tot]:=k+1; 54 end; 55 56 procedure work; 57 var 58 i,j:longint; 59 begin 60 for i:=1 to n do 61 begin 62 tot:=0; 63 for j:=1 to m do 64 if (tot=0)or(a[i,j]<>a[i,j-1]) then insert(s[i,j]) 65 else 66 begin 67 insert(0); 68 tot:=0; 69 insert(s[i,j]); 70 end; 71 insert(0); 72 end; 73 writeln(ans1); 74 writeln(ans2); 75 end; 76 77 begin 78 init; 79 work; 80 end.