Description

　　農民約翰被選為他們鎮的鎮長！他其中一個競選承諾就是在鎮上建立起互聯網，并連接到所有的農場。當然，他需要你的幫助。約翰已經給他的農場安排了一條高速的網絡線路，他想把這條線路共享給其他農場。為了用最小的消費，他想鋪設最短的光纖去連接所有的農場。你將得到一份各農場之間連接費用的列表，你必須找出能連接所有農場并所用光纖最短的方案。每兩個農場間的距離不會超過100000

Input

第一行： 農場的個數，N（3<=N<=5000）。
第二行..結尾: 后來的行包含了一個N*N的矩陣,表示每個農場之間的距離。理論上，他們是N行，每行由N個用空格分隔的數組成，實際上，他們限制在80個字符，因此，某些行會緊接著另一些行。當然，對角線將會是0，因為不會有線路從第i個農場到它本身。

Output

只有一個輸出，其中包含連接到每個農場的光纖的最小長度。

Sample Input

4
0 4 9 21
4 0 8 17
9 8 0 16
21 17 16 0

Sample Output

28

分析
先排序，再用并查集做。

程序：

var f,a,b:array[0..25000000]of longint; re:array[0..5010]of longint; n,p,i,j,ans,m,check,k,l:longint;procedure kp(l,r:longint); var i,j,mid,t:longint; beginif l>r then exit;i:=l;j:=r;mid:=f[(l+r) div 2];repeatwhile f[i]<mid do inc(i);while f[j]>mid do dec(j);if i<=j thenbegint:=f[i];f[i]:=f[j];f[j]:=t;t:=a[i];a[i]:=a[j];a[j]:=t;t:=b[i];b[i]:=b[j];b[j]:=t;inc(i);dec(j);end;until(i>j);kp(l,j);kp(i,r); end;function find(x:longint):longint; var k,temp:longint; begink:=x;while re[x]<>x do x:=re[x];while re[k]<>x dobegintemp:=re[k];re[k]:=x;k:=temp;end;exit(x); end;beginreadln(n);p:=0;for i:=1 to n dobeginfor j:=1 to n dobegininc(p);read(f[p]);a[p]:=i;b[p]:=j;end;readln;end;kp(1,p);ans:=0;for i:=1 to n dore[i]:=i;for i:=1 to p dobeginm:=re[1];check:=0;for j:=1 to n doif re[j]<>m then check:=1;if check=0 thenbeginwrite(ans);break;end;if find(a[i])<>find(b[i]) thenbegink:=find(re[b[i]]);l:=re[a[i]];re[k]:=l;ans:=ans+f[i];end;end; end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500022.html

總結

以上是生活随笔為你收集整理的最小生成树II的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。