2516 2014年中山市选拔赛 dwarf tower

题目

Vasya在玩一个叫做”Dwarf Tower”的游戏，这个游戏中有n个不同的物品，它们的编号为1到n。现在Vasya想得到编号为1的物品。
获得一个物品有两种方式：
1. 直接购买该物品，第i件物品花费的钱为ci
2. 用两件其他物品合成所需的物品，一共有m种合成方式。
请帮助Vasya用最少的钱获得编号为1的物品。

题解

一个有向图，每种合成方式都弄成两条边，然后spfa
时间复杂度O（nm）

代码

var  a:array[1..10000]of longint;  h:array[1..1000000]of longint;  z,x,y,ls,next:array[1..200000]of longint;  v:array[1..200000]of boolean;  n,m,i,j,k,r:longint;procedure spfa;var  u,l,i,j:longint;begin  l:=0;  while l<r do    begin      inc(l);      u:=h[l];      i:=ls[u];      while i>0 do        begin          if a[u]+a[y[i]]<a[z[i]] then            begin              a[z[i]]:=a[u]+a[y[i]];              if v[z[i]] then                begin                  v[z[i]]:=false;                  inc(r);                  h[r]:=z[i];                end;            end;          i:=next[i];        end;      v[u]:=true;    end;end;begin  readln(n,m);  for i:=1 to n do    read(a[i]);  fillchar(v,sizeof(v),true);  for i:=1 to m do    begin      readln(z[i*2-1],x[i*2-1],y[i*2-1]);      next[i*2-1]:=ls[x[i*2-1]];      ls[x[i*2-1]]:=i*2-1;      z[i*2]:=z[i*2-1];x[i*2]:=y[i*2-1];y[i*2]:=x[i*2-1];      next[i*2]:=ls[x[i*2]];      ls[x[i*2]]:=i*2;      if v[x[i*2]] then        begin          inc(r);          h[r]:=x[i*2];          v[x[i*2]]:=false;        end;      if v[y[i*2]] then        begin          inc(r);          h[r]:=y[i*2];          v[y[i*2]]:=false;        end;    end;  spfa;  writeln(a[1]);end.