poj2559

【题意】

给定n个立方体的高度，求最大矩形面积

【输入】

多组数据，数据以单独一行一个0结束

每组数据一行，第一个数字为n，接下来n个数字表示个立方体的高度

【输出】

对于每组数据，输出一个数表示最大矩形面积

单调栈

从左到右从右到左扫描两次，出栈的时候计算最大面积

很不幸的wa，思路不够全面

program poj2559;
var
  tot,n,i,j,k,s,e:longint;
  now,ans:int64;
  h,stack:array [0..100001] of int64;
begin
  repeat
    read(n);
    if n=0 then break;
    for i:=1 to n do
      read(h[i]);
    ans:=0;
    h[n+1]:=0;
    h[0]:=0;;
    tot:=0;
    stack[0]:=0;
    for i:=1 to n+1 do
      if h[i]>h[stack[tot]] then
        begin
          inc(tot);
          stack[tot]:=i
        end
                             else
        begin
          now:=tot;
          while h[stack[now]]>h[i] do dec(now);
          for k:=now+1 to tot do
            if ans<h[stack[k]]*(stack[tot]-stack[k-1]) then
              ans:=h[stack[k]]*(stack[tot]-stack[k-1]);
          tot:=now;
          inc(tot);
          stack[tot]:=i;
        end;
    tot:=0;
    stack[0]:=n+1;
    for i:=n downto 0 do
      if h[i]>h[stack[tot]] then
        begin
          inc(tot);
          stack[tot]:=i
        end
                             else
        begin
          now:=tot;
          while h[stack[now]]>h[i] do dec(now);
          for k:=now+1 to tot do
            if ans<h[stack[k]]*(stack[k-1]-stack[tot]) then
              ans:=h[stack[k]]*(stack[k-1]-stack[tot]);
          tot:=now;
          inc(tot);
          stack[tot]:=i;
        end;
    writeln(ans);
  until false;
end.