POJ 2560Freckles（并查集）

题意：

找出一条最短路，额…….n<100；

思路：

并查集最短路搞一波，然后就没了….

时间复杂度

O（**）

type
  arr=record
  x,y:longint;
  w:real;
 end;
const
 maxn=100;
var
 a:array [0..maxn*maxn] of arr;
 f:array [0..maxn*maxn] of longint;
 x,y:array [0..maxn*maxn] of real;
 i,j,n,m,p:longint;
 ans:real;