题目:
永恒の灵魂最近得到了面积为n*m的一大块土地(高兴ING^_^),他想在这块土地上建造一所房子,这个房子必须是正方形的。
但是,这块土地并非十全十美,上面有很多不平坦的地方(也可以叫瑕疵)。这些瑕疵十分恶心,以至于根本不能在上面盖一砖一瓦。
他希望找到一块最大的正方形无瑕疵土地来盖房子。
和此题类似的题目很多,解法就是预处理+动规(DP不太熟,不知道这是不是DP)
var
a:array[0..1500,0..1500] of integer;
up,left,f:array[0..1500,0..1500] of longint;
n,m,i,j,ans:longint;
function min(a,b,c:longint):longint;
var
t:longint;
begin
if a<b then t:=a else t:=b;
if t<c then exit(t);
exit(c);
end;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
for i:=1 to n do
begin
left[i,1]:=1;
for j:=2 to m do
if a[i,j]=a[i,j-1] then left[i,j]:=left[i,j-1]+1
else left[i,j]:=1;
end;
for j:=1 to m do
begin
up[1,j]:=1;
for i:=2 to n do
if a[i,j]=a[i-1,j] then up[i,j]:=up[i-1,j]+1
else up[i,j]:=1;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j]=1 then
begin
f[i,j]:=min(f[i-1,j-1]+1,left[i,j],up[i,j]);
if f[i,j]>ans then
ans:=f[i,j];
end;
writeln(ans);
end.