5043. 【NOI2017模拟4.4】保持平衡

Description

博爱路上种起了一棵棵的大树，但是有一些地方的树超过了负荷，有一些地方的树的数量又不够。
我们不妨把博爱路看做一条数轴，数轴有n个点，从1到n编号，第i个位置原来现在有ai棵树，这个位置的需求是bi棵树。ai,bi都是0到10的整数。由于你需要是这个位置的树的数量保持平衡，所以你需要移除或者搬一些树过来。
我们怎么使树的数量平衡呢？
首先，你可以从某个位置i移动一棵树到位置j，这时，你需要的运费是|i-j|*z元。
其次，你可以从商店买一棵树，需要支付x元，这时商店会把树配送到任意位置。
还有就是，你可以叫别人收购在任意位置一棵树，需要支付y元运费。
问使得树的数量平衡最小需要支付多少钱？

Input

第一行包含4个整数，n，x，y，z。
接下来n行，每一行包含两个整数，ai和bi。

Output

输出一个整数，表示最小花费。

Sample Input

4 100 200 1
1 4
2 3
3 2
4 0

Sample Output

210
样例解释：从4位置运3棵树到1位置，花费3*3=9。从3位置运1颗树到2位置，花费1*1=1。
叫别人收购4位置的一棵树，花费200。

题解

既然是贪心专题，自然用贪心，又因为是算最小，就可以用堆维护；
维护两个堆，一个记录供应，另一个记录需求，每次需要时，就取堆顶（贪心，符合堆的性质），再将撤销操作加入另一个堆（-i*z-sum（最优操作）），即可（每次记得比较堆顶与x，y）。

var        n,x,y,z,i,a,b,tot,tott,tt,sum:longint;        ans:int64;        d,dd:array[0..200000]of int64;procedure up(x:longint);begin        while (x>1)and(d[x]<d[x div 2]) do        begin                tt:=d[x];                d[x]:=d[x div 2];                d[x div 2]:=tt;                x:=x div 2;        end;end;procedure down(x:longint);var        y:longint;begin        while ((x*2<=tot)and(d[x]>d[x*2]))or((x*2+1<=tot)and(d[x]>d[x*2+1])) do        begin                y:=x*2;                if (d[y]>d[y+1])and(y+1<=tot) then                        inc(y);                tt:=d[x];                d[x]:=d[y];                d[y]:=tt;                x:=y;        end;end;procedure up1(x:longint);begin        while (x>1)and(dd[x]<dd[x div 2]) do        begin                tt:=dd[x];                dd[x]:=dd[x div 2];                dd[x div 2]:=tt;                x:=x div 2;        end;end;procedure down1(x:longint);var        y:longint;begin        while ((x*2<=tott)and(dd[x]>dd[x*2]))or((x*2+1<=tott)and(dd[x]>dd[x*2+1])) do        begin                y:=x*2;                if (dd[y]>dd[y+1])and(y+1<=tott) then                        inc(y);                tt:=dd[x];                dd[x]:=dd[y];                dd[y]:=tt;                x:=y;        end;end;begin        readln(n,x,y,z);        for i:=1 to n do        begin                readln(a,b);                dec(a,b);                while a>0 do                begin                        if tot>0 then                        begin                                if i*z+d[1]<y then                                begin                                        sum:=i*z+d[1];                                        d[1]:=d[tot];                                        dec(tot);                                        down(1);                                end                                else                                        sum:=y;                        end                        else                                sum:=y;                        inc(tott);                        dd[tott]:=-i*z-sum;                        up1(tott);                        inc(ans,sum);                        dec(a);                end;                while a<0 do                begin                        if tott>0 then                        begin                                if i*z+dd[1]<x then                                begin                                        sum:=i*z+dd[1];                                        dd[1]:=dd[tott];                                        dec(tott);                                        down1(1);                                end                                else                                        sum:=x;                        end                        else                                sum:=x;                        inc(tot);                        d[tot]:=-i*z-sum;                        up(tot);                        inc(ans,sum);                        inc(a);                end;        end;        writeln(ans);end.