洛谷1387 最大正方形

洛谷1387 最大正方形

---

本题地址： http://www.luogu.org/problem/show?pid=1387

---

题目描述

在一个n*m的只包含0和1的矩阵里找出一个不包含0的最大正方形，输出边长。

输入输出格式

输入格式：
输入文件第一行为两个整数n,m（1<=n,m<=100），接下来n行，每行m个数字，用空格隔开，0或1.

---

输出格式：

一个整数，最大正方形的边长

---

输入输出样例

输入样例#1：

4 4
0 1 1 1
1 1 1 0
0 1 1 0
1 1 0 1

输出样例#1：

2

分析

最大正方形即找到向左最长为多少，向上最长为多少，对角线最长到多少，因为是正方形，所以取最小值。
f[i,j]表示以[i,j]为右下角的正方形边长
a[i,j]表示[i,j]处数字是几。
即 if a[i,j]=1 then f[i,j]:=min(f[i-1,j],min(f[i,j-1],f[i-1,j-1]))+1
因为a[i,j]:=1;所以f[i,j]边长至少为1，再加上左右对角线所能延伸的最远距离，由此可以得出；

代码如下

program p1259;
var f:array[0..1000,0..1000] of longint;
    map:array[0..1000,0..1000] of longint;
    n,m,i,j,ans:longint;
function min(a,b:longint):longint;
begin
 if a>b then exit(b);
 exit(a);
end;

begin
 readln(n,m);
 for i:=1 to n do
  for j:=1 to m do
   begin
    read(map[i,j]);
   end;
 fillchar(f,sizeof(f),0);
 for i:=1 to n do
  for j:=1 to m do
   begin
    if map[i,j]=1
     then
      begin
       f[i,j]:=min(f[i-1,j],min(f[i,j-1],f[i-1,j-1]))+1;
      end;
   end;
 ans:=0;
 for i:=1 to n do
  for j:=1 to m do
   begin
    if f[i,j]>ans
     then
      ans:=f[i,j];
   end;
 write(ans);
end.

评测结果

测试点 #1：通过该测试点。 得分10，耗时0ms，内存7180kB。
测试点 #2：通过该测试点。 得分10，耗时0ms，内存7196kB。
测试点 #3：通过该测试点。 得分10，耗时15ms，内存7258kB。
测试点 #4：通过该测试点。 得分10，耗时31ms，内存7360kB。
测试点 #5：通过该测试点。 得分10，耗时0ms，内存7532kB。
测试点 #6：通过该测试点。 得分10，耗时15ms，内存7553kB。
测试点 #7：通过该测试点。 得分10，耗时0ms，内存7561kB。
测试点 #8：通过该测试点。 得分10，耗时0ms，内存7540kB。
测试点 #9：通过该测试点。 得分10，耗时15ms，内存7565kB。
测试点 #10：通过该测试点。 得分10，耗时0ms，内存7565kB。

Wish

╮(╯▽╰)╭