poj 3013 Big Christmas Tree spfa

题目大意

  要建一棵圣诞树，使得总的花费最小。具体规则是：圣诞树是一颗无向树形图，其中，编号为1的节点为根节点，原始图中每条边具有边权，每个点也有一值权。圣诞树中，各条边的花费是该边权*该边的子树中所有点值，总的花费则是圣诞树中所有边的花费之和。

分析

  1.对点u，只有从点u到根结点之间的边会乘以点u的重量。

  2.所以，对于点u；最小的花费是要使点u到根结点的边权最小，即最短路。

  3.所以，圣诞树的最小总花费=每条边权*该边的子树中所有点值
                            =每个点值*该点到根结点的最短路

注意

  如果有的点无法到达，就要输出‘No Answer’

  如果输入的边数或点数为0，输出0（我wa了好多次）

  一定要注意范围，要用int64

代码

const
  maxe=100000;
  maxv=2000000;

type
  arr=record
    x,y,w,next:int64;
  end;

var
  n,m,s,q,nm:longint;
  ls:array[0..maxe] of longint;
  a:array[0..maxv] of arr;
  f:array[0..maxe] of int64;
  v:array[0..maxe] of int64;
  d,b:array[0..maxe] of int64;
  i,j,k,ll:longint;
  ans,max:int64;

procedure spfa;
var
  i,j,k:longint;
  head,tail:longint;
begin
  fillchar(f,sizeof(f),63);
  max:=f[1];
  head:=0;
  tail:=1;
  v[1]:=1;
  d[1]:=1;
  f[1]:=0;
  repeat
    head:=head+1;
    j:=ls[d[head]];
    while j<>0 do
      begin
        with a[j] do
          begin
            if f[x]+w<f[y]
              then
                begin
                  f[y]:=f[x]+w;
                  if v[y]=0
                    then
                      begin
                        tail:=tail+1;
                        d[tail]:=y;
                        v[y]:=1;
                      end;
                end;
            j:=next;
          end;
      end;
    v[d[head]]:=0;
  until head=tail;
end;

begin
  readln(nm);
  for ll:=1 to nm do
  begin
  fillchar(ls,sizeof(ls),0);
  fillchar(d,sizeof(d),0);
  fillchar(b,sizeof(b),0);
  fillchar(a,sizeof(a),0);
  fillchar(v,sizeof(v),0);
  readln(n,m);
  for i:=1 to n do
    read(b[i]);
  for i:=1 to m do
    begin
      with a[i*2-1] do
        begin
          readln(x,y,w);
          next:=ls[x];
          ls[x]:=i*2-1;
        end;
      a[i*2].x:=a[i*2-1].y;
      a[i*2].y:=a[i*2-1].x;
      a[i*2].w:=a[i*2-1].w;
      a[i*2].next:=ls[a[i*2].x];
      ls[a[i*2].x]:=i*2;
    end;
  m:=m*2;
  spfa;
  ans:=0;
  for i:=1 to n do
    if f[i]=max then break
                else ans:=f[i]*b[i]+ans;
  if (f[i]=max) then writeln('No Answer')
                else writeln(ans);
  end;
end.