bzoj3039

经典题目不多说

var f:array[0..1010,0..1010] of longint;
    l,r:array[0..1010] of longint;
    i,j,n,m,ans:longint;
    x:char;

function max(a,b:longint):longint;
  begin
    if a>b then exit(a) else exit(b);
  end;

begin
  readln(n,m);
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      read(x);
      if x=' ' then read(x);
      if x='F' then
        f[i,j]:=f[i-1,j]+1
      else f[i,j]:=0;
    end;
    readln;
  end;

  for i:=1 to n do
  begin
    l[1]:=1;
    for j:=1 to m do
    begin
      l[j]:=j;
      while (l[j]-1>0) and (f[i,j]<=f[i,l[j]-1]) do l[j]:=l[l[j]-1];
    end;
    r[m]:=m;
    for j:=m-1 downto 1 do
    begin
      r[j]:=j;
      while (r[j]+1<=m) and (f[i,j]<=f[i,r[j]+1]) do r[j]:=r[r[j]+1];
    end;
    for j:=1 to m do
      ans:=max(ans,f[i,j]*(r[j]-l[j]+1));
  end;
  writeln(3*ans);
end.