3399: [Usaco2009 Mar]Sand Castle城堡
3399: [Usaco2009 Mar]Sand Castle城堡
HansBug
发布于 2018-04-11 10:38:18
发布于 2018-04-11 10:38:18
3399: [Usaco2009 Mar]Sand Castle城堡
Time Limit: 3 Sec Memory Limit: 128 MB
Submit: 37 Solved: 32
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
题解：又是一道石(sang)破(xin)天(bing)惊(kuang)的贪心，原来就是排个序算下就好了= =（HansBug：越来越发现这类贪心题才最逗比有木有TT）
1 /**************************************************************
2 Problem: 3399
3 User: HansBug
4 Language: Pascal
5 Result: Accepted
6 Time:40 ms
7 Memory:1008 kb
8 ****************************************************************/
9
10 type
11 arr=array[0..100000] of longint;
12 var
13 i,j,k,l,m,n:longint;
14 a,b:arr;ans:int64;
15 procedure swap(var x,y:longint);
16 var z:longint;
17 begin
18 z:=x;x:=y;y:=z;
19 end;
20 procedure sort(l,r:longint;var a:arr);
21 var i,j,x,y:longint;
22 begin
23 i:=l;j:=r;x:=a[(l+r) div 2];
24 repeat
25 while a[i]<x do inc(i);
26 while a[j]>x do dec(j);
27 if i<=j then
28 begin
29 swap(a[i],a[j]);
30 inc(i);dec(j);
31 end;
32 until i>j;
33 if i<r then sort(i,r,a);
34 if l<j then sort(l,j,a);
35 end;
36 function cal(x,y:longint):int64;
37 begin
38 if y>=x then exit(int64(k)*int64(y-x)) else exit(int64(l)*int64(x-y));
39 end;
40 begin
41 readln(n,k,l);
42 for i:=1 to n do readln(a[i],b[i]);
43 sort(1,n,a);sort(1,n,b);
44 ans:=0;
45 for i:=1 to n do inc(ans,cal(a[i],b[i]));
46 writeln(ans);
47 readln;
48 end.本文参与 腾讯云自媒体分享计划，分享自作者个人站点/博客。
原始发表：2015-05-01 ，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读
目录