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裸题，所以试了一下自顶向下，感觉好写一点，但是我不会写双旋，而且插入也是乱搞的，所以时间就长了一点，不过还是能过的
1 const 2 maxn=33000; 3 type 4 node=record 5 son:array[0..1]of longint; 6 data:longint; 7 end; 8 var 9 tree:array[0..maxn]of node; 10 root,n,tot:longint; 11 ans:int64; 12 13 procedure down(var x:longint;y:longint); 14 begin 15 if x>y then x:=y; 16 end; 17 18 procedure splay(x:longint;var root:longint); 19 var 20 tmp:longint; 21 begin 22 if tree[root].data=x then exit; 23 if x<tree[root].data then 24 begin 25 if tree[root].son[0]=0 then exit; 26 splay(x,tree[root].son[0]); 27 tmp:=tree[root].son[0]; 28 tree[root].son[0]:=tree[tmp].son[1]; 29 tree[tmp].son[1]:=root; 30 root:=tmp; 31 end 32 else 33 begin 34 if tree[root].son[1]=0 then exit; 35 splay(x,tree[root].son[1]); 36 tmp:=tree[root].son[1]; 37 tree[root].son[1]:=tree[tmp].son[0]; 38 tree[tmp].son[0]:=root; 39 root:=tmp; 40 end; 41 end; 42 43 function pre:longint; 44 begin 45 pre:=tree[root].son[0]; 46 while tree[pre].son[1]<>0 do 47 pre:=tree[pre].son[1]; 48 end; 49 50 function succ:longint; 51 begin 52 succ:=tree[root].son[1]; 53 while tree[succ].son[0]<>0 do 54 succ:=tree[succ].son[0]; 55 end; 56 57 procedure insert(x:longint); 58 var 59 aug:longint; 60 begin 61 splay(x,root); 62 if tree[root].data=x then exit; 63 inc(tot); 64 tree[tot].data:=x; 65 if x<tree[root].data then 66 begin 67 aug:=tree[root].data-x; 68 if tree[root].son[0]<>0 then down(aug,x-tree[pre].data); 69 tree[tot].son[0]:=tree[root].son[0]; 70 tree[root].son[0]:=tot; 71 end 72 else 73 begin 74 aug:=x-tree[root].data; 75 if tree[root].son[1]<>0 then down(aug,tree[succ].data-x); 76 tree[tot].son[1]:=tree[root].son[1]; 77 tree[root].son[1]:=tot; 78 end; 79 ans:=ans+aug; 80 end; 81 82 procedure main; 83 var 84 i,x:longint; 85 begin 86 read(n); 87 root:=1; 88 tot:=1; 89 read(tree[1].data); 90 ans:=abs(tree[1].data); 91 for i:=2 to n do 92 begin 93 read(x); 94 insert(x); 95 end; 96 write(ans); 97 end; 98 99 begin 100 main; 101 end.
