前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >1588: [HNOI2002]营业额统计

1588: [HNOI2002]营业额统计

作者头像
HansBug
发布2018-04-10 16:27:21
7750
发布2018-04-10 16:27:21
举报
文章被收录于专栏:HansBug's Lab

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好开心么么哒*^_^*)

代码语言:javascript
复制
 1 var
 2    i,j,k,l,m,n,mt,head:longint;
 3    a,lef,rig,fix:array[0..1000000] of longint;
 4 function min(x,y:longint):longint;inline;
 5          begin
 6               if x<y then min:=x else miN:=y;
 7          end;
 8 procedure rt(var x:longint);inline;
 9           var f,l:longint;
10           begin
11                if (x=0) or (lef[x]=0) then exit;
12                f:=x;l:=lef[x];
13                lef[x]:=rig[l];
14                rig[l]:=x;
15                x:=l
16           end;
17 procedure lt(var x:longint);inline;
18           var f,r:longint;
19           begin
20                if (x=0) or (rig[x]=0) then exit;
21                f:=x;r:=rig[x];
22                rig[x]:=lef[r];
23                lef[r]:=x;
24                x:=r;
25           end;
26 procedure ins(var x,y:longint);inline;
27          begin
28               if x=0 then exit;
29               if a[y]<a[x] then
30                  begin
31                       mt:=min(mt,abs(a[x]-a[y]));
32                       if lef[x]=0 then lef[x]:=y else ins(lef[x],y);
33                       if fix[lef[x]]>fix[x] then rt(x);
34                  end
35               else
36                   begin
37                        mt:=min(mt,abs(a[x]-a[y]));
38                        if rig[x]=0 then rig[x]:=y else ins(rig[x],y);
39                        if fix[rig[x]]>fix[x] then lt(x);
40                   end;
41          end;
42 begin
43      readln(n);
44      randomize;
45      fillchar(lef,sizeof(lef),0);
46      fillchar(rig,sizeof(rig),0);
47      for i:=1 to n do
48          begin
49               read(a[i]);
50               fix[i]:=random(maxlongint);
51          end;
52      head:=1;
53      l:=a[1];
54      for i:=2 to n do
55          begin
56               mt:=maxlongint;j:=i;
57               ins(head,j);
58               l:=l+mt;
59          end;
60      writeln(l);
61 end.
62                      
本文参与 腾讯云自媒体同步曝光计划,分享自作者个人站点/博客。
原始发表:2014-12-21 ,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作者个人站点/博客 前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
目录
  • 1588: [HNOI2002]营业额统计
  • Description
  • Input
  • Output
  • Sample Input
  • Sample Output
  • HINT
  • Source
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档