【最小生成树】kruskal算法(用并查集)pascal



var
  a,b,v,p:array[1..100] of longint;
  n,m,i,ans,tot,x,y:longint;

procedure sort(l,r:longint);
var
  i,j,x,y:longint;
begin
  i:=l;j:=r;x:=v[(l+r) div 2];
  repeat
    while v[i]<x do inc(i);
    while x<v[j] do dec(j);
    if not(i>j) then begin
      y:=v[i];v[i]:=v[j];v[j]:=y;
   y:=a[i];a[i]:=a[j];a[j]:=y;
   y:=b[i];b[i]:=b[j];b[j]:=y;
      inc(i);j:=j-1;
    end;
  until i>j;
  if l<j then sort(l,j);
  if i<r then sort(i,r);
end;

function doit(x:longint):longint;
begin
  if p[x]=x then begin
    doit:=x;
 ans:=x;
  end
  else begin
    doit:=doit(p[x]);
 p[x]:=ans;         //重要!!!!!!!!!!并查集一大特色

  end;
end;

begin
  readln(n,m);
  for i:=1 to m do readln(a[i],b[i],v[i]);
  sort(1,m);
  for i:=1 to n do p[i]:=i;
  for i:=1 to m do begin
    x:=doit(a[i]);y:=doit(b[i]);
    if x<>y then begin
   p[x]:=y;
   tot:=tot+v[i];
 end;
  end;
  writeln(tot);
  readln;
end.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值