约翰用沙子建了一座城堡.正如所有城堡的城墙,这城墙也有许多枪眼,两个相邻枪眼中间那部分叫作“城齿”. 城墙上一共有N(1≤N≤25000)个城齿,每一个都有一个高度Mi.(1≤尬≤100000).现在约翰想把城齿的高度调成某种顺序下的Bi,B2,…,BN(I≤Bi≤100000). -个城齿每提高一个单位的高度,约翰需要X(I≤X≤100)元;每降低一个单位的高度,约翰需要Y(1≤y≤100)元. 问约翰最少可用多少钱达到目的.数据保证答案不超过2^32.
标签:
第1个城齿降低1,第2个城齿提高1
题解:又是一道石(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.
3399: [Usaco2009 Mar]Sand Castle城堡
标签:
原文地址:http://www.cnblogs.com/HansBug/p/4470489.html