BZOJ3039: 玉蟾宫&wikioi2491 玉蟾宫

3039: 玉蟾宫

Time Limit: 2 Sec  Memory Limit: 128 MB
Submit: 430  Solved: 265
[Submit][Status]

Description

有一天，小猫rainbow和freda来到了湘西张家界的天门山玉蟾宫，玉蟾宫宫主蓝兔盛情地款待了它们，并赐予它们一片土地。
这片土地被分成N*M个格子，每个格子里写着'R'或者'F'，R代表这块土地被赐予了rainbow，F代表这块土地被赐予了freda。
现在freda要在这里卖萌。。。它要找一块矩形土地，要求这片土地都标着'F'并且面积最大。
但是rainbow和freda的OI水平都弱爆了，找不出这块土地，而蓝兔也想看freda卖萌（她显然是不会编程的……），所以它们决定，如果你找到的土地面积为S，它们每人给你S两银子。

Input

第一行两个整数N,M，表示矩形土地有N行M列。
接下来N行，每行M个用空格隔开的字符'F'或'R'，描述了矩形土地。

Output

输出一个整数，表示你能得到多少银子，即(3*最大'F'矩形土地面积)的值。

Sample Input

5 6
R F F F F F
F F F F F F
R R R F F F
F F F F F F
F F F F F F

Sample Output

45

HINT

对于50%的数据，1<=N,M<=200

对于100%的数据，1<=N,M<=1000

Source

Poetize4

题解：

这方法叫悬线法？学习了

蒟蒻不会一次单调栈求左右最远能扩展到哪儿，只能来两次了。。。

代码：

 uses math;
 const maxn=+;
 var s:ansistring;
     a:array[..maxn,..maxn] of char;
     h,l,r,sta:array[..maxn] of longint;
     n,m,i,j,k,ans,top:longint;
 procedure init;
  begin
    readln(n,m);
    for i:= to n do
     begin
       k:=;
       readln(s);
       for j:= to length(s) do
        if s[j]<>' ' then begin inc(k);a[i,k]:=s[j];end;
     end;
  end;
 procedure main;
  begin
    h[]:=-;h[m+]:=-;
    for i:= to n do
     begin
      for j:= to m do if a[i,j]='F'  then inc(h[j]) else h[j]:=;
      top:=;
      for j:= to m+ do
       begin
       while (top>) and (h[j]<h[sta[top]]) do
        begin
        r[sta[top]]:=j-;dec(top);
        end;
       inc(top);sta[top]:=j;
       end;
      top:=;
      for j:=m downto  do
       begin
       while (top>) and (h[j]<h[sta[top]]) do
        begin
        l[sta[top]]:=j+;dec(top);
        end;
       inc(top);sta[top]:=j;
       end;
      for j:= to m do ans:=max(ans,h[j]*(r[j]-l[j]+));
     end;
  writeln(*ans);
  end;

 begin
   assign(input,'input.txt');assign(output,'output.txt');
   reset(input);rewrite(output);
   init;
   main;
   close(input);close(output);
 end.