vijos1057题解

题目：

永恒の灵魂最近得到了面积为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.