2697: 特技飞行
2014-12-29 23:07
246 查看
2697: 特技飞行
Time Limit: 10 Sec Memory Limit: 256 MBSubmit: 646 Solved: 393
[Submit][Status]
Description
神犇航空开展了一项载客特技飞行业务。每次飞行长N个单位时间,每个单位时间可以进行一项特技动作,可选的动作有K种,每种动作有一个刺激程度Ci。如果连续进行相同的动作,乘客会感到厌倦,所以定义某次动作的价值为(距上次该动作的时间)*Ci,若为第一次进行该动作,价值为0。安排一种方案,使得总价值最大。Input
第一行,两个数,N和K,如上所述;第二行,K个正整数,表示K种动作的Ci值。
Output
仅一行,一个整数,表示最大总价值。Sample Input
5 22 2
Sample Output
12HINT
数据规模及约定对于10%的测试数据,N<=20,K<=3
对于全部的测试数据,1<=N<=1000,1<=K<=300,0<=Ci<=1000。
Source
题解:这个嘛,是个萌萌哒贪心啦啦啦——先从大到小排序,然后依次往两边摆上 ,不难证明其最优性1 var
2 i,j,k,m,n,ll,l,r,x,y:longint;
3 a:array[0..2000] of longint;
4 procedure swap(var x,y:longint);inline;
5 var z:longint;
6 begin
7 z:=x;x:=y;y:=z;
8 end;
9 procedure sort(l,r:longint);
var i,j,x,y:longint;
begin
i:=l;j:=r;x:=a[(l+r) div 2];
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);
if l<j then sort(l,j);
end;
begin
readln(n,m);
for i:=1 to m do read(a[i]);
readln;
sort(1,m);
x:=1;y:=n;
for i:=1 to m do
begin
ll:=ll+(y-x)*a[i];
inc(x);dec(y);
if x>=y then break;
end;
writeln(ll);
readln;39 end.
相关文章推荐
- BZOJ2697: 特技飞行
- 【bzoj2697】 特技飞行 贪心
- 【BZOJ】2697: 特技飞行
- 【BZOJ2697】特技飞行
- 【bzoj2697】【特技飞行】【贪心】
- 【bzoj2697】特技飞行
- BZOJ2697:特技飞行
- [贪心] BZOJ 2697 特技飞行
- 2697: 特技飞行
- bzoj 2697 特技飞行 贪心
- bzoj 2697: 特技飞行 贪心
- BZOJ——2697: 特技飞行
- BZOJ2697 特技飞行 【贪心】
- 【BZOJ】【P2697】【特技飞行】【题解】【贪心】
- bzoj2697: 特技飞行
- tsinsen A1329. 特技飞行
- 设定图片的飞行路径(DHTML)
- 对吉利汽车副总裁王自亮的“飞行印象”
- 男子驾自制直升机飞行视频走红网络(视频)
- 特技风筝-介绍