1660: [Usaco2006 Nov]Bad Hair Day 乱发节

1660: [Usaco2006 Nov]Bad Hair Day 乱发节

Time Limit: 2 Sec  Memory Limit: 64 MB
Submit: 665  Solved: 318
[Submit][Status]

Description

 

Input

* Line 1: 牛的数量 N。

 * Lines 2..N+1: 第 i+1 是一个整数，表示第i头牛的高度。

Output

* Line 1: 一个整数表示c[1] 至 c[N]的和。

Sample Input

6

10

3

7

4

12

2

输入解释:

六头牛排成一排，高度依次是 10, 3, 7, 4, 12, 2。

Sample Output

5

3+0+1+0+1=5

HINT

Source

Silver

题解：其实可以用单调队列稍微改一下的单调堆做。可是傲娇的我偏不，嗯哼——建立一棵线段树树，在初始化之后只要支持一种萌萌哒功能就够了：在区间内查找位置最靠左的大于或等于某值的点的位置，比如样例，则cash(1,n,1,2,n,10)得到的就是5，然后萌萌哒线段树树就这么萌萌哒Accept了（本以为会小小的TLE一下的，可一遍下来居然WA，再一看居然是数组开小了TT，最终出乎本萌妹意料的——604ms不解释）

 

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