• 最小生成树Kruskal——最优布线问题(codevs 1231) (可做Kruscal模板)


    题目描述 Description

    学校需要将n台计算机连接起来,不同的2台计算机之间的连接费用可能是不同的。为了节省费用,我们考虑采用间接数据传输结束,就是一台计算机可以间接地通过其他计算机实现和另外一台计算机连接。

    为了使得任意两台计算机之间都是连通的(不管是直接还是间接的),需要在若干台计算机之间用网线直接连接,现在想使得总的连接费用最省,让你编程计算这个最小的费用。

    输入描述 Input Description

    输入第一行为两个整数n,m(2<=n<=100000,2<=m<=100000),表示计算机总数,和可以互相建立连接的连接个数。接下来m行,每行三个整数a,b,c 表示在机器a和机器b之间建立连接的话费是c。(题目保证一定存在可行的连通方案, 数据中可能存在权值不一样的重边,但是保证没有自环)

    输出描述 Output Description

    输出只有一行一个整数,表示最省的总连接费用。

    样例输入 Sample Input

    3 3

    1 2 1

    1 3 2

    2 3 1

    样例输出 Sample Output

    2

    数据范围及提示 Data Size & Hint

    最终答案需要用long long类型来保存

    代码:Kruscal就是排序+并查集思路

    var aa,bb,t,n,m,i,j:longint;    sum:int64;
        f,a,b,c:array[1..100000] of longint;
    function find(x:longint):longint;
    begin
      if f[x]=x then exit(x)
        else find:=find(f[x]);
      f[x]:=find;
    end;
    procedure qsort(l,r: longint);  //快排
          var
             i,j,x,y: longint;
          begin
             i:=l;  j:=r;  x:=c[(l+r) div 2];
             repeat
               while c[i]<x do   inc(i);
               while x<c[j] do   dec(j);
               if not(i>j) then
                 begin
                    y:=a[i]; a[i]:=a[j]; a[j]:=y;
                    y:=b[i]; b[i]:=b[j]; b[j]:=y;
                    y:=c[i]; c[i]:=c[j]; c[j]:=y;
                    inc(i);  j:=j-1;
                 end;
             until i>j;
             if l<j then qsort(l,j);
             if i<r then qsort(i,r);
          end;

    procedure kruscal;    //Kruscal就是并查集思想
    var i,j:longint;
    begin
      for i:=1 to n do f[i]:=i;
      for i:=1 to m do
        begin
          a[i]:=find(a[i]);
          b[i]:=find(b[i]);
          if a[i]<>b[i] then
            begin
               f[a[i]]:=b[i];
               sum:=sum+c[i];
               inc(t);
               if t=n-1 then break;
            end;
        end;
    end;

    begin readln(n,m); for i:=1 to m do readln(a[i],b[i],c[i]); qsort(1,m); kruscal; writeln(sum); end.
  • 相关阅读:
    第五百五十二天 how can I 坚持
    第五百五十一天 how can I 坚持
    第五百五十天 how can I 坚持
    第五百四十七、八、九 how can I 坚持
    第五百四十六天 how can I 坚持
    第五百四十五天 how can I 坚持
    第五百四十四 how can I 坚持
    第五百四十一、二、三天 how can I 坚持
    第五百四十天 how can I 坚持
    MySql
  • 原文地址:https://www.cnblogs.com/zqzxwdm/p/4743855.html
Copyright © 2020-2023  润新知