poj1964

【题意】

给定一个'R''F'矩阵，求最大全部由'F'组成的矩形面积

【输入】

第一行k，表示k组数据

每组数据第一行n、m

接下来描述一个n*m的矩阵

【输出】

对于每组数据，输出最大面积

单调栈

首先预处理一下，求出每个(i,j)包括自己向下有几个连续的F

然后枚举行数，问题就简化回一维求立方图最大面积了

program poj1964;
var
  tot,ans,k,n,m,i,j:longint;
  f,map:array [0..1001,0..1001] of longint;
  dl:array [0..1001] of longint;
  temp:char;

function min (a,b:longint):longint;inline;
begin
  if a<b then exit(a)
         else exit(b);
end;

begin
  readln(k);
  while k>0 do
    begin
      dec(k);
      readln(n,m);
      for i:=1 to n do
        begin
          for j:=1 to m do
            begin
              repeat
                read(temp);
              until (temp='R')or(temp='F');
              if temp='R' then map[i,j]:=0
                          else map[i,j]:=1;
            end;
          readln;
        end;
      ans:=0;
      fillchar(f,sizeof(f),0);
      for i:=n downto 1 do
        for j:=m downto 1 do
          if map[i,j]=1 then f[i,j]:=f[i+1,j]+1;
      for i:=1 to n do
        begin
          tot:=0;
          for j:=1 to m+1 do
            begin
              while (tot>0)and(f[i,j]<f[i,dl[tot]]) do
                begin
                  if ans<f[i,dl[tot]]*(j-1-dl[tot-1]) then
                    ans:=f[i,dl[tot]]*(j-1-dl[tot-1]);
                  dec(tot);
                end;
              inc(tot);
              dl[tot]:=j;
            end;
        end;
      writeln(3*ans);
    end;
end.