1588: [HNOI2002]营业额统计

1588: [HNOI2002]营业额统计

Time Limit: 5 Sec  Memory Limit: 162 MB
Submit: 9203  Solved: 3097
[Submit][Status]

Description

营业额统计 Tiger最近被公司升任为营业部经理，他上任后接受公司交给的第一项任务便是统计并分析公司成立以来的营业情况。 Tiger拿出了公司的账本，账本上记录了公司成立以来每天的营业额。分析营业情况是一项相当复杂的工作。由于节假日，大减价或者是其他情况的时候，营业额会出现一定的波动，当然一定的波动是能够接受的，但是在某些时候营业额突变得很高或是很低，这就证明公司此时的经营状况出现了问题。经济管理学上定义了一种最小波动值来衡量这种情况： 该天的最小波动值 当最小波动值越大时，就说明营业情况越不稳定。 而分析整个公司的从成立到现在营业情况是否稳定，只需要把每一天的最小波动值加起来就可以了。你的任务就是编写一个程序帮助Tiger来计算这一个值。 第一天的最小波动值为第一天的营业额。  输入输出要求

Input

第一行为正整数 ，表示该公司从成立一直到现在的天数，接下来的n行每行有一个整数(有可能有负数) ，表示第i天公司的营业额。

Output

输出文件仅有一个正整数，即Sigma(每天最小的波动值) 。结果小于2^31 。

Sample Input

6
5
1
2
5
4
6

Sample Output

12

HINT

结果说明：5+|1-5|+|2-1|+|5-5|+|4-5|+|6-5|=5+4+1+0+1+1=12

此题数据有问题，详见讨论版http://www.lydsy.com/JudgeOnline/wttl/wttl.php?pid=1588

Source

 题解：这个嘛，一道很经典的平衡树题——呵呵呵我一般还是喜欢用简单好写的treap——只要在插入每个点的过程中记录下经过的每一个点与这个插入点的绝对值，然后一路打擂台去最小值就可以了，就这样子轻轻松松的O(nlogn)水过（HansBug：我的220ms，phile神犇的252ms好开心么么哒*^_^*）

 

 var
    i,j,k,l,m,n,mt,head:longint;
    a,lef,rig,fix:array[..] of longint;
 function min(x,y:longint):longint;inline;
          begin
               if x<y then min:=x else miN:=y;
          end;
 procedure rt(var x:longint);inline;
           var f,l:longint;
           begin
                if (x=) or (lef[x]=) then exit;
                f:=x;l:=lef[x];
                lef[x]:=rig[l];
                rig[l]:=x;
                x:=l
           end;
 procedure lt(var x:longint);inline;
           var f,r:longint;
           begin
                if (x=) or (rig[x]=) then exit;
                f:=x;r:=rig[x];
                rig[x]:=lef[r];
                lef[r]:=x;
                x:=r;
           end;
 procedure ins(var x,y:longint);inline;
          begin
               if x= then exit;
               if a[y]<a[x] then
                  begin
                       mt:=min(mt,abs(a[x]-a[y]));
                       if lef[x]= then lef[x]:=y else ins(lef[x],y);
                       if fix[lef[x]]>fix[x] then rt(x);
                  end
               else
                   begin
                        mt:=min(mt,abs(a[x]-a[y]));
                        if rig[x]= then rig[x]:=y else ins(rig[x],y);
                        if fix[rig[x]]>fix[x] then lt(x);
                   end;
          end;
 begin
      readln(n);
      randomize;
      fillchar(lef,sizeof(lef),);
      fillchar(rig,sizeof(rig),);
      for i:= to n do
          begin
               read(a[i]);
               fix[i]:=random(maxlongint);
          end;
      head:=;
      l:=a[];
      for i:= to n do
          begin
               mt:=maxlongint;j:=i;
               ins(head,j);
               l:=l+mt;
          end;
      writeln(l);
 end.