1588: [HNOI2002]营业额统计 - BZOJ

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

splay裸题，所以试了一下自顶向下，感觉好写一点，但是我不会写双旋，而且插入也是乱搞的，所以时间就长了一点，不过还是能过的

 const
     maxn=;
 type
     node=record
       son:array[..]of longint;
       data:longint;
     end;
 var
     tree:array[..maxn]of node;
     root,n,tot:longint;
     ans:int64;

 procedure down(var x:longint;y:longint);
 begin
     if x>y then x:=y;
 end;

 procedure splay(x:longint;var root:longint);
 var
     tmp:longint;
 begin
     if tree[root].data=x then exit;
     if x<tree[root].data then
       begin
         if tree[root].son[]= then exit;
         splay(x,tree[root].son[]);
         tmp:=tree[root].son[];
         tree[root].son[]:=tree[tmp].son[];
         tree[tmp].son[]:=root;
         root:=tmp;
       end
     else
       begin
         if tree[root].son[]= then exit;
         splay(x,tree[root].son[]);
         tmp:=tree[root].son[];
         tree[root].son[]:=tree[tmp].son[];
         tree[tmp].son[]:=root;
         root:=tmp;
       end;
 end;

 function pre:longint;
 begin
     pre:=tree[root].son[];
     while tree[pre].son[]<> do
       pre:=tree[pre].son[];
 end;

 function succ:longint;
 begin
     succ:=tree[root].son[];
     while tree[succ].son[]<> do
       succ:=tree[succ].son[];
 end;

 procedure insert(x:longint);
 var
     aug:longint;
 begin
     splay(x,root);
     if tree[root].data=x then exit;
     inc(tot);
     tree[tot].data:=x;
     if x<tree[root].data then
       begin
         aug:=tree[root].data-x;
         if tree[root].son[]<> then down(aug,x-tree[pre].data);
         tree[tot].son[]:=tree[root].son[];
         tree[root].son[]:=tot;
       end
     else
       begin
         aug:=x-tree[root].data;
         if tree[root].son[]<> then down(aug,tree[succ].data-x);
         tree[tot].son[]:=tree[root].son[];
         tree[root].son[]:=tot;
       end;
     ans:=ans+aug;
 end;

 procedure main;
 var
     i,x:longint;
 begin
     read(n);
     root:=;
     tot:=;
     read(tree[].data);
     ans:=abs(tree[].data);
     for i:= to n do
       begin
         read(x);
         insert(x);
       end;
     write(ans);
 end;

 begin
     main;
 end.