3399: [Usaco2009 Mar]Sand Castle城堡

3399: [Usaco2009 Mar]Sand Castle城堡

Time Limit: 3 Sec  Memory Limit: 128 MB
Submit: 37  Solved: 32
[Submit][Status][Discuss]

Description

约翰用沙子建了一座城堡．正如所有城堡的城墙，这城墙也有许多枪眼，两个相邻枪眼中间那部分叫作“城齿”．    城墙上一共有N(1≤N≤25000)个城齿，每一个都有一个高度Mi.(1≤尬≤100000)．现在约翰想把城齿的高度调成某种顺序下的Bi，B2，…，BN(I≤Bi≤100000). -个城齿每提高一个单位的高度，约翰需要X(I≤X≤100)元；每降低一个单位的高度，约翰需要Y(1≤y≤100)元．    问约翰最少可用多少钱达到目的．数据保证答案不超过2^32．

Input

    第1行输入3个整数N，X，Y.

    第2到N+1行每行输入两个整数Mi和Bi．

Output

    最少花费．

Sample Input

3 6 5
3 1
1 2
1 2

Sample Output

11

HINT

第1个城齿降低1，第2个城齿提高1

Source

Silver

题解：又是一道石(sang)破(xin)天(bing)惊(kuang)的贪心，原来就是排个序算下就好了= =（HansBug：越来越发现这类贪心题才最逗比有木有TT）

 /**************************************************************
     Problem:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 type
     arr=array[..] of longint;
 var
    i,j,k,l,m,n:longint;
    a,b:arr;ans:int64;
 procedure swap(var x,y:longint);
           var z:longint;
           begin
                z:=x;x:=y;y:=z;
           end;
 procedure sort(l,r:longint;var a:arr);
           var i,j,x,y:longint;
           begin
                i:=l;j:=r;x:=a[(l+r) div ];
                repeat
                      while a[i]<x do inc(i);
                      while a[j]>x do dec(j);
                      if i<=j then
                         begin
                              swap(a[i],a[j]);
                              inc(i);dec(j);
                         end;
                until i>j;
                if i<r then sort(i,r,a);
                if l<j then sort(l,j,a);
           end;
 function cal(x,y:longint):int64;
          begin
               if y>=x then exit(int64(k)*int64(y-x)) else exit(int64(l)*int64(x-y));
          end;
 begin
      readln(n,k,l);
      for i:= to n do readln(a[i],b[i]);
      sort(,n,a);sort(,n,b);
      ans:=;
      for i:= to n do inc(ans,cal(a[i],b[i]));
      writeln(ans);
      readln;
 end.