carbon 2010-11-16 14:57:00
点我顶贴
收藏
删除
SPFA里：
..........
for i:=f[k] to f[k+1]-1 do
if d[k]+e[i]<d[b[i]] then
begin
d[b[i]]:=d[k]+e[i];
..........
主程序里：
qsort(1,m);
for i:=1 to m do if f[a[i]]=0 then f[a[i]]:=i;
f[n+1]:=m+1;
for i:=n downto 1 do
if f[i]=0 then f[i]:=f[i+1];