城墙

城墙

Time Limits: 1000 ms Memory Limits: 65536 KB Detailed Limits

Description
　　FJ居住的城堡有N个城墙(1<=N<=25,000)，编号为1到N，每个城墙的高度为M_i(1<=M_i<=100,000)，他想把城墙的高度按照某种顺序变成B_1,B_2,….B_N（1<=B_i<=100,000），由于工作量比较大，FJ雇佣了一些牛来帮忙提高或降低墙的高度，当然要付工资，提高一单位高度需要花费X(1<=X<=100)，降低一单位高度需要花费Y(1<=Y<=100)。
　　FJ想用最少的钱来完成这项任务，请你帮助计算，保证答案在longint范围内。

Input
　　第1行：3个空格隔开的整数N,X和Y
　　第2到N+1行：第i+1行包含两个空格隔开的整数表示M_i和B_i

Output
　　输出一个整数表示最少花费。

Sample Input
3 6 5
3 1
1 2
1 2

Sample Output
11

Hint
【样例说明】
　　FJ把原来的高度3，1，1依次变为2，2，1。
【数据说明】
　　40%的数据N<=9
　　60%的数据N<=18

---

解题思路

排序，然后再对每一位的进行题目要求的运算。

想知道这是水法还是正解，好像听说可以证明。

Codes:

var
    a,b,c:array[0..25000]of longint;
    ans,n,x,y,i:longint;
procedure p(h,t:longint);
    var l,r,m:longint;
begin
    l:=h; r:=t;
    m:=c[(h+t)div 2];
    repeat
        while c[l]<m do inc(l);
        while c[r]>m do dec(r);
        if l<=r then
        begin
            c[0]:=c[l]; c[l]:=c[r]; c[r]:=c[0];
            inc(l); dec(r);
        end;
    until l>r;
    if h<r then p(h,r);
    if l<t then p(l,t);
end;
begin
    read(n,x,y);
    for i:=1 to n do read(a[i],b[i]);
    c:=a; p(1,n); a:=c;
    c:=b; p(1,n); b:=c;
    for i:=1 to n do
        if a[i]<b[i] then inc(ans,(b[i]-a[i])*x) else inc(ans,(a[i]-b[i])*y);
    writeln(ans);
end.