Description
在一个大晴天,Oliver与同学们一共N人出游,他们走到一条河的东岸边,想要过河到西岸。而东岸有一条小船。
船太小了,一次只能乘坐两人。每个人都有一个渡河时间T,船划到对岸的时间等于船上渡河时间较长的人所用时间。
现在已知N个人的渡河时间T,Oliver想要你告诉他,他们最少要花费多少时间,才能使所有人都过河。
注意,只有船在东岸(西岸)时东岸(西岸)的人才能坐上船划到对岸。
Input
输入文件第一行为人数N,以下有N行,每行一个数。
第i+1行的数为第i个人的渡河时间。
Output
输出文件仅包含一个数,表示所有人都渡过河的最少渡河时间。
题解
对于每次过河,有两种走法。最小的时间把人运过去或最小和次小的时间把人运过去,就可以得f[i]:=min(f[i-1]+a[1]+a[i],f[i-2]+a[i]+a[1]+a[2]*2);
代码
var
n:longint;
a,f:array [0..100001] of longint;
procedure init;
var
i:longint;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
end;
function min(o,p:longint):longint;
begin
if o<p then exit(o);
exit(p);
end;
procedure qsort(l,r:longint);
var
i,j,t,m:longint;
begin
i:=l; j:=r;
m:=a[(l+r) div 2];
repeat
while a[i]<m do inc(i);
while a[j]>m do dec(j);
if i<=j then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
inc(i); dec(j);
end;
until i>j;
if l<j then qsort(l,j);
if i<r then qsort(i,r);
end;
procedure main;
var
i:longint;
begin
f[1]:=a[1]; f[2]:=a[2];
for i:=3 to n do
f[i]:=min(f[i-1]+a[1]+a[i],f[i-2]+a[i]+a[1]+a[2]*2);
write(f[n]);
end;
begin
init;
qsort(1,n);
main;
end.