1657: [Usaco2006 Mar]Mooo 奶牛的歌声

1657: [Usaco2006 Mar]Mooo 奶牛的歌声

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 526  Solved: 365
[Submit][Status]

Description

Farmer John's N (1 <= N <= 50,000) cows are standing in a very straight row and mooing. Each cow has a unique height h in the range 1..2,000,000,000 nanometers (FJ really is a stickler for precision). Each cow moos at some volume v in the range 1..10,000. This "moo" travels across the row of cows in both directions (except for the end cows, obviously). Curiously, it is heard only by the closest cow in each direction whose height is strictly larger than that of the mooing cow (so each moo will be heard by 0, 1 or 2 other cows, depending on not whether or taller cows exist to the mooing cow's right or left). The total moo volume heard by given cow is the sum of all the moo volumes v for all cows whose mooing reaches the cow. Since some (presumably taller) cows might be subjected to a very large moo volume, FJ wants to buy earmuffs for the cow whose hearing is most threatened. Please compute the loudest moo volume heard by any cow.

Farmer John的N(1<=N<=50,000)头奶牛整齐地站成一列“嚎叫”。每头奶牛有一个确定的高度h(1<=h<=2000000000)，叫的音量为v (1<=v<=10000)。每头奶牛的叫声向两端传播，但在每个方向都只会被身高严格大于它的最近的一头奶牛听到，所以每个叫声都只会 被0，1，2头奶牛听到（这取决于它的两边有没有比它高的奶牛）。 一头奶牛听到的总音量为它听到的所有音量之和。自从一些奶牛遭受巨大的音量之后，Farmer John打算买一个耳罩给被残害得最厉 害的奶牛，请你帮他计算最大的总音量。

Input

* Line 1: A single integer, N.

* Lines 2..N+1: Line i+1 contains two space-separated integers, h and v, for the cow standing at location i.

    第1行：一个正整数N.

    第2到N+1行：每行包括2个用空格隔开的整数，分别代表站在队伍中第i个位置的奶牛的身高以及她唱歌时的音量．

Output

* Line 1: The loudest moo volume heard by any single cow.

    队伍中的奶牛所能听到的最高的总音量．

Sample Input

3
4 2
3 5
6 10

INPUT DETAILS:

Three cows: the first one has height 4 and moos with volume 2, etc.

Sample Output

7

HINT

     队伍中的第3头奶牛可以听到第1头和第2头奶牛的歌声，于是她能听到的总音量为2+5=7．虽然她唱歌时的音量为10，但并没有奶牛可以听见她的歌声．

Source

Silver

题解：萌萌哒我赶脚此题超级神似Bzoj1660，这道题还是直接线段树维护即可，方法类似bzoj1660（话说今天才发现bzoj1660里面的b数组根本没用到啊呵呵。。。）

var
   i,j,k,l,m,n:longint;
   a,b,c,e:array[0..500000] of longint;
function max(x,y:longint):longint;
         begin
              if x>y then max:=x else max:=y;
         end;
function min(x,y:longint):longint;
         begin
              if x<y then min:=x else min:=y;
         end;
procedure build(x,y,z:longint);
          begin
               if (x=y) then
                  begin
                       a[z]:=c[x];
                       b[z]:=x;
                  end
               else
                   begin
                        build(x,(x+y) div 2,z*2);
                        build((x+y) div 2+1,y,z*2+1);
                        a[z]:=max(a[z*2],a[z*2+1]);
                   end;
          end;
function getright(x,y,z,l,r,t:longint):longint;
         var
            i,j,k:longint;
         begin
              if l>r then exit(-1);
              if c[l]>t then exit(l);
              if a[z]<=t then exit(-1);
              if (l=r) or (x=y) then exit(-1);

              i:=getright(x,(x+y) div 2,z*2,l,min(r,(x+y) div 2),t);
              if i=-1 then
                 getright:=getright((x+y) div 2+1,y,z*2+1,max(l,(x+y) div 2+1),r,t)
              else
                  getright:=i;
         end;
function getleft(x,y,z,l,r,t:longint):longint;
         var
            i,j,k:longint;
         begin
              if l>r then exit(-1);
              if a[z]<=t then exit(-1);
              if c[r]>t then exit(r);
              if (x=y) or (l=r) then exit(-1);

              i:=getleft((x+y) div 2+1,y,z*2+1,max(l,(x+y) div 2+1),r,t);
              if i=-1 then
                 getleft:=getleft(x,(x+y) div 2,z*2,l,min(r,(x+y) div 2),t)
              else
                  getleft:=i;
         end;
begin
     readln(n);
     for i:=1 to n do
         readln(c[i],e[i]);
     build(1,n,1);
     fillchar(b,sizeof(b),0);
     for i:=1 to n do
         begin
              j:=getleft(1,n,1,1,i-1,c[i]);
              k:=getright(1,n,1,i+1,n,c[i]);
              if j<>-1 then b[j]:=b[j]+e[i];
              if k<>-1 then b[k]:=b[k]+e[i];
         end;
     l:=0;
     for i:=1 to n do
         l:=max(l,b[i]);
     writeln(l);
end.