【模板】最小生成树

题目描述
如题，给出一个无向图，求出最小生成树，如果该图不连通，则输出orz

输入输出格式
输入格式：
第一行包含两个整数N、M，表示该图共有N个结点和M条无向边。（N<=5000，M<=200000）
接下来M行每行包含三个整数Xi、Yi、Zi，表示有一条长度为Zi的无向边连接结点Xi、Yi

输出格式：
输出包含一个数，即最小生成树的各边的长度之和；如果该图不连通则输出orz

输入输出样例
输入样例#1：
4 5
1 2 2
1 3 2
1 4 3
2 3 4
3 4 3
输出样例#1：
7

说明
时空限制：1000ms,128M
数据规模：
对于20%的数据：N<=5，M<=20
对于40%的数据：N<=50，M<=2500
对于70%的数据：N<=500，M<=10000
对于100%的数据：N<=5000，M<=200000

样例解释：

所以最小生成树的总边权为2+2+3=7

var a,b,c,d:array[0..200000]of longint;
    i,j,n,ans,tot,x,m,k:longint;
function ask(x:longint):longint;
begin
  if d[x]=x then exit(d[x]);
  d[x]:=ask(d[x]);
  exit(d[x]);
end;
procedure unite(x,y:longint);
begin
  d[ask(x)]:=ask(y);
end;
procedure swap(var a,b:longint);
var t:longint;
begin
  t:=a; a:=b; b:=t;
end;
procedure sort(l,r:longint);
var
  i,j,x: longint;
begin
  i:=l; j:=r;
  x:=a[(l+r) div 2];
  repeat
  while a[i]<x do inc(i);
  while x<a[j] do dec(j);
  if not(i>j) then
  begin
    swap(a[i],a[j]);
    swap(b[i],b[j]);
    swap(c[i],c[j]);
    inc(i);
    j:=j-1;
  end;
  until i>j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;
begin
  read(n,m);
  for i:=1 to m do read(b[i],c[i],a[i]);
  sort(1,m);
  for i:=1 to n do d[i]:=i;
  while tot<n-1 do
  begin
    inc(k);
    if ask(b[k])<>ask(c[k])then
    begin
      inc(ans,a[k]);
      unite(b[k],c[k]);
      inc(tot);
    end;
  end;
  write(ans);
end.