Highways_poj2485_最小生成树

Description

The island nation of Flatopia is perfectly flat. Unfortunately, Flatopia has no public highways. So the traffic is difficult in Flatopia. The Flatopian government is aware of this problem. They’re planning to build some highways so that it will be possible to drive between any pair of towns without leaving the highway system.

Flatopian towns are numbered from 1 to N. Each highway connects exactly two towns. All highways follow straight lines. All highways can be used in both directions. Highways can freely cross each other, but a driver can only switch between highways at a town that is located at the end of both highways.

The Flatopian government wants to minimize the length of the longest highway to be built. However, they want to guarantee that every town is highway-reachable from every other town.

Input

The first line of input is an integer T, which tells how many test cases followed.
The first line of each case is an integer N (3 <= N <= 500), which is the number of villages. Then come N lines, the i-th of which contains N integers, and the j-th of these N integers is the distance (the distance should be an integer within [1, 65536]) between village i and village j. There is an empty line after each test case.

Output

For each test case, you should output a line contains an integer, which is the length of the longest road to be built such that all the villages are connected, and this value is minimum.

Sample Input

1

3
0 990 692
990 0 179
692 179 0

Sample Output

692

Hint

Huge input,scanf is recommended.

Source

POJ Contest,Author:Mathematica@ZSU

思路：

水水水，求最小生成树中的最长边，kurskal并查集优化+邻接表，好像也快不到哪里去

代码/pas

type  edge=record    x,y,w:longint;  end;var  a,b,n,i,k,gg:longint;  f,v:array[0..501]of longint;  e:array[0..260000]of edge;  max:longint;procedure qsort(l,r:longint);var  i,j,key:longint;  temp:edge;begin  if l>=r then exit;  i:=l;  j:=r;  key:=e[l+random(r-l+1)].w;  repeat    while  (e[i].w<key) do inc(i);    while  (e[j].w>key) do dec(j);    if i<=j then    begin      temp:=e[i];      e[i]:=e[j];      e[j]:=temp;      i:=i+1;      j:=j-1;    end;  until i>j;  qsort(l,j);  qsort(i,r);end;function find(x:longint):longint;var  y,w,root:longint;begin  y:=x;  while f[y]<>0 do y:=f[y];  root:=y;  y:=x;  while f[y]<>0 do  begin    w:=f[y];    f[y]:=root;    y:=w;  end;  find:=root;end;procedure union(x,y:longint);begin  if find(x)<>find(y) then  f[x]:=y;end;procedure init;var  i,j:Longint;begin  readln(n);  for i:=1 to n do  for j:=1 to n do  with e[(i-1)*n+j] do  begin    read(w);    x:=i;    y:=j;  end;  for i:=1 to n do v[i]:=i;  fillchar(f,sizeof(f),0);end;begin  readln(gg);  while gg>0 do  begin    dec(gg);    init;    qsort(1,n*n);    k:=0;    max:=0;    for i:=1 to n*n-1 do    if k=n then    break    else    begin      a:=find(e[i].x);      b:=find(e[i].y);      if a<>b then      begin        if e[i].w>max then max:=e[i].w;        union(a,b);        k:=k+1;      end;    end;    writeln(max);  end;end.