【Kruskal】公路建设（Road.exe， 1s， 64M）

 

公路建设（Road.exe， 1s， 64M）

【问题描述】

A国是一个新兴的国家，有N个城市，分别编号为1,2.3…N。政府想大搞公路建设，提供了优惠政策：对于每一个投资方案的预计总费用，政府负担50%，并且允许投资的公司对过往的汽车收取连续5年的养路费。世界各地的大公司纷纷投资，并提出了自己的建设方案，他们的投资方案包括这些内容：公路连接的两座城市的编号，预计的总费用（假设他们的预计总师准确的）。你作为A国公路规划局的总工程师，有权利决定每一个方案是否接受。但是政府给你的要求是：

1）要保证各个城市之间都有公路直接或间接相连。

2）因为是新兴国家，政府的经济实力还不强。政府希望负担最少的费用。

    因为大公司并不是同时提出方案，政府希望每接到一个方案，就可以知道当前需要负担的最小费用和接受的投资方案，以便随时开工。关于你给投资公司的回复可以等到开工以后再给。

注意：A国一开始是没有公路的。

【数据说明】A国的城市数目N<=500，投资的方案总数M<=2000。

【输入】输入文件名：Road.in

第1行有两个数字：N、M

第2行到第M+1行给出了各个投资方案，第i行的方案编号为i-1

编号小的方案先接到，一个方案占一行，每行有3个数字，分别是连接的两个城市编号a、b，和投资的预计总费用cost。

【输出】输出文件名：Road.out

输出文件共有M行。

每一行的第一个数字是当前政府需要负担的最少费用（保留1位小数），后面是X个数字，表示当前政府接受的方案的编号，不要求从小到大排列。但如果此时接受的所有投资方案不能保证政府的第一条要求，那么这一行只有一个数字0

【样例】

Road.in	Road.out
3 5 1 2 4 1 3 4 2 3 4 1 3 2 1 2 2	0 4.0 1 2 4.0 1 2 3.0 1 4 2.0 4 5

================================

kruskal

===========================

type
  node=record
         x,y,v,o:longint;
       end;
var
  n,m:longint;
  fa:array[1..250000]of node;
  f_fa:array[1..250000]of longint;
  fa_s:longint;
  map:array[1..500,1..500]of longint;
  odd:array[1..500,1..500]of longint;
  ans_odd:array[1..250000]of longint;
  f_bo:array[1..500]of boolean;
procedure init;
begin
  assign(input,'road.in');
  assign(output,'road.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

function find(x:longint):longint;
begin
  if f_fa[x]=x then exit(x)
               else begin f_fa[x]:=find(f_fa[x]); exit(f_fa[x]); end;
end;

procedure merge(a,b:longint);
var
  x,y:longint;
begin
  x:=find(a);
  y:=find(b);
  f_fa[x]:=y;
end;

procedure qsort(s,t:longint);
var
  i,j:longint;
  x:longint;
  tem:node;
begin
  x:=fa[(s+t)shr 1].v;
  i:=s; j:=t;
  repeat
    while x<fa[j].v do dec(j);
    while fa[i].v<x do inc(i);
    if i<=j then
      begin
        tem:=fa[i];
        fa[i]:=fa[j];
        fa[j]:=tem;
        inc(i); dec(j);
      end;
  until i>j;
  if i<t then qsort(i,t);
  if s<j then qsort(s,j);
end;

procedure main;
var
  i,j,k:longint;
  x,y,z:longint;
  t:longint;
  fa_t,ans:longint;
begin
  readln(n,m);
  fillchar(f_bo,sizeof(f_bo),true);
  fillchar(map,sizeof(map),$7);
  t:=0;
  for i:=1 to m do
    begin
      readln(x,y,z);
      if map[x,y]>z then
        begin
          map[x,y]:=z;
          odd[x,y]:=i;
          odd[y,x]:=i;
          if f_bo[x] then
            begin
              f_bo[x]:=false;
              inc(t);
            end;
          map[y,x]:=z;
          if f_bo[y] then
            begin
              f_bo[y]:=false;
              inc(t);
            end;
        end;
      if t<n then writeln(0)
       else
        if t=n then
          begin
            fa_s:=0;
            for j:=1 to n do
              for k:=j+1 to n do
                if map[j,k]<100000 then
                begin
                  inc(fa_s);
                  fa[fa_s].x:=j;
                  fa[fa_s].y:=k;
                  fa[fa_s].v:=map[j,k];
                  fa[fa_s].o:=odd[j,k];
                end;
            qsort(1,fa_s);
            for j:=1 to n do f_fa[j]:=j;
            
            fa_t:=0; ans:=0;
            for j:=1 to fa_s do
              begin
                if fa_t=n-1 then break;
                if find(fa[j].x)<>find(fa[j].y) then
                  begin
                    inc(fa_t);
                    ans_odd[fa_t]:=fa[j].o;
                    ans:=ans+fa[j].v;
                    merge(fa[j].x,fa[j].y);
                  end;
              end;
            write(ans/2:0:1,' ');
            for j:=1 to fa_t do write(ans_odd[j],' ');
            writeln;
          end;
    end;
end;

begin
  init;
  main;
  terminate;
end.