poj3013

【题意】

给定v个点的重量，并给定e条边，每条边具有一个权值，在e条边中选v-1条边使这v个点成为一棵树，设一棵树的代价为（每棵子树节点重量和其子树根到父节点的边的权值的乘积）之和，求以1为根节点的树的最小代价

【输入】

多组数据，第一行为一个数t，表示有t组数据

接下来每组数据第一行两个数v、e(<=50000)意义如上

接下来一行v个数描述各个点的重量

之后的e行表示e条边及其权值

【输出】

对于每组数据，输出一个数字表示其以1为根节点的树的最小代价

求以1为原点的各点最短路径，答案即为（各点【最短路径*重量】之和）

需要注意边是双向的，最多有100000条边

program poj3013;
var
  all,tot,n,e,t,i,j,k,u,v,c,o:longint;
  ans:int64;
  l,r:array [0..1] of longint;
  next,root,point,cost,w,dis:array [0..150001] of int64;
  dl:array [0..1,-150001..150001] of longint;

procedure spfa;
begin
  fillchar(dis,sizeof(dis),63);
  o:=0;
  l[o]:=0;
  r[o]:=0;
  dl[o,0]:=1;
  dis[1]:=0;
  while l[o]<=r[o] do
    begin
      o:=1-o;
      l[o]:=0;
      r[o]:=-1;
      for i:=l[1-o] to r[1-o] do
        begin
          k:=root[dl[1-o,i]];
          while k<>0 do
            begin
              if dis[dl[1-o,i]]+cost[k]<dis[point[k]] then
                begin
                  dis[point[k]]:=dis[dl[1-o,i]]+cost[k];
                  if (l[o]<=r[o])and(dis[point[k]]<dis[dl[o,l[o]]]) then
                    begin
                      dec(l[o]);
                      dl[o,l[o]]:=point[k];
                    end
                                                                    else
                    begin
                      inc(r[o]);
                      dl[o,r[o]]:=point[k];
                    end

                end;
              k:=next[k];
            end;
        end;
    end;
end;


procedure connect (u,v,c:longint);
begin
  inc(tot);
  point[tot]:=v;
  cost[tot]:=c;
  next[tot]:=root[u];
  root[u]:=tot;
end;

begin
  read(t);
  while t>0 do
    begin
      read(n,e);
      for i:=1 to n do
        read(w[i]);
      fillchar(root,sizeof(root),0);
      tot:=0;
      for i:=1 to e do
        begin
          read(u,v,c);
          connect(u,v,c);
          connect(v,u,c);
        end;
      spfa;
      ans:=0;
      for i:=1 to n do
        begin
          if dis[i]=dis[0] then break;
          ans:=ans+dis[i]*w[i];
        end;
      if dis[i]=dis[0] then writeln('No Answer')
                       else writeln(ans);
      dec(t);
    end;
end.