餐桌_纪中1237_水暴力

Description

你家刚买了一套新房，想邀请朋友回来庆祝，所以需要一个很大的举行餐桌，餐桌能容纳的人数等于餐桌的周长，你想买一个能容纳最多人的餐桌，餐桌的边必须跟房间的边平行。
给你的房间的设计，计算最多能邀请的客人数。

Input

第一行包含两个整数R和C(1<=R,C<=2000)，表示房子的长和宽。
接下来R行每行S个字符（中间没有空格），“.”表示空白区域，“X”表示有障碍物，餐桌所占区域必须是空白的。

Output

输出最多能要求的客人数量。

Sample Input

输入1：

2 2

..

..

输入2：

4 4

X.XX

X..X

..X.

..XX

输入3：

3 3

X.X

.X.

X.X

Sample Output

输出1：

7

输出2：

9

输出3：

3

Hint

[数据规模]

50%的数据R,C<=400
70%的数据R,C<=1000
100%的数据，R,C<=2000

题解:

首先根据常识可得，我们要求的桌子是个四边平行于坐标轴的矩形(脑补一下就好了)

然后敏锐地发现这道题目问的是邀请客人的数量而不是可以坐下的人数，所以要除去主人

本来没有想过会通过，数据太水太水，卡过，复杂度大概是

$$O(n^{2.5})$$
别问我那个小数是怎么来的，玄学问题不予讨论

PAS

var
  n,m,ans:longint;
  f:array[0..2001,0..2001] of integer;
  a:array[0..2001,0..2001] of integer;
procedure init;
var
  i,j:longint;
  c:char;//这里最好不用string什么的，会爆
begin
  readln(n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(c);
      if c='.' then
      a[i,j]:=1;
    end;
    readln;
  end;
  ans:=0;
end;
procedure main;
var
  i,j,x,min:longint;
begin
  fillchar(f,sizeof(f),0);
  for i:=1 to n do
  for j:=1 to m do
  if (a[i,j]=1) then
  if (a[i-1,j]=0) then
  f[i,j]:=1
  else
  f[i,j]:=f[i-1,j]+1;
  for i:=1 to n do
  for j:=1 to m do
  if a[i,j]=1 then
  begin
    x:=j;
    min:=maxlongint;
    while a[i,x]=1 do
    begin
      if f[i,x]<min then min:=f[i,x];
      if (x-j+1+min)*2-1>ans then ans:=(x-j+1+min)*2-1;
      inc(x);
    end;
  end;
  writeln(ans);
end;
begin
  init;
  main;
end.