給出n個人所需過橋的時間，每次最多兩人過橋，過橋時間為最長的人的時間。求最快所有人全部過橋方案。

?

貪心。先從小到大排，易知

n=1 時 ans=a[1]

n=2,ans=max(a[1],a[2])

n=3,ans=a[1]+a[2]+a[3]

初始化F[1、2、3],記F[n]（n>=4）為前n個人過河且1、2個人在河左岸時所用的最短時間。要弄兩個人過去易得兩種方案：

• 1到右岸去，帶i-1回來，1再到右岸，帶i回來，用時是2*a[1]+a[i-1]+a[i]
• 1到右岸去，i-1、i一起回來，2到右岸，帶1回來（適用于a[i-1]、a[i]較大且相差較小時），用時a[1]+2*a[2]+a[i]

故F[n]=Min{2*a[1]+a[i-1]+a[i],a[1]+2*a[2]+a[i]}+F[n-2]

轉(zhuǎn)移時記下是第幾種方案。若n為奇數(shù)從3一步步向后推，若n為偶數(shù)從2開始推。

?

?

#	?	Problem	Verdict	Language	Run Time	Submission Date
11591812	10037	Bridge	Accepted	PASCAL	0.016	2013-04-11 13:49:55

?

program p10037;Constsol1=true;sol2=false;Vara,f:array[0..1002] of longint;g:array[0..1002] of boolean;t,n,i,o:longint;Procedure fopen;beginassign(input,'p10037.in');assign(output,'p10037.out');reset(input);rewrite(output); end;Procedure fclose;beginclose(input);close(output); end;Function max(a,b:longint):longint;inline;beginif a>b then exit(a);exit(b); end;Procedure qsort(l,r:longint); Vari,j,x,y:longint;begini:=l;j:=r;x:=a[l+round(0.618*(r-l))];repeatwhile a[i]<x do inc(i);while a[j]>x do dec(j);if i<=j then beginy:=a[i];a[i]:=a[j];a[j]:=y;inc(i);dec(j);end;until i>j;if i<r then qsort(i,r);if l<j then qsort(l,j); end;Procedure BasicPrint(P:longint;flag:boolean);inline;begincase p of 1:beginif flag then writeln(a[1]);writeln(a[1]);//writeln;end;2:beginif flag then writeln(max(a[1],a[2]));writeln(a[1],' ',a[2]);//writeln;end;3:beginif flag then writeln(a[1]+a[2]+a[3]);writeln(a[1],' ',a[3]);writeln(a[1]);writeln(a[1],' ',a[2]);//writeln;end;end; end;Procedure StepPrint(P:longint;kind:boolean);inline;beginif kind=sol1 thenbeginwriteln(a[1]);writeln(a[1],' ',a[p-1]);writeln(a[1]);writeln(a[1],' ',a[p]);exit;end;writeln(a[1]);writeln(a[p-1],' ',a[p]);writeln(a[2]);writeln(a[1],' ',a[2]); end;beginreadln(t);while t>0 do begin dec(t);readln;readln(n);for i:=1 to n do readln(a[i]);qsort(1,n);if n<=3 then basicprint(n,true) elsebeginf[1]:=a[1];f[2]:=max(a[1],a[2]);f[3]:=a[1]+a[2]+a[3];for i:=4 to n doif 2*a[1]+a[i-1]+a[i]<=a[1]+2*a[2]+a[i] thenbeging[i]:=Sol1;f[i]:=2*a[1]+a[i-1]+a[i]+f[i-2]end elsebeging[i]:=Sol2;f[i]:=a[1]+2*a[2]+a[i]+f[i-2];end;if odd(n) then o:=3 else o:=2;writeln(f[n]);basicprint(o,false);inc(o,2);while o<=n dobeginStepprint(o,g[o]);inc(o,2);end;end;if t>0 then writeln;end;//while tend.

?

轉(zhuǎn)載于:https://www.cnblogs.com/htfy/archive/2013/04/11/3015487.html

總結(jié)

以上是生活随笔為你收集整理的【水】uva10037 过桥的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。