[BZOJ2200][Usaco2011 Jan]道路和航线

[Usaco2011 Jan]道路和航线

Time Limit: 10 Sec Memory Limit: 259 MB

Description

Farmer John正在一个新的销售区域对他的牛奶销售方案进行调查。他想把牛奶送到T个城镇 (1 <= T <= 25,000)，编号为1T。这些城镇之间通过R条道路 (1 <= R <= 50,000，编号为1到R) 和P条航线 (1 <= P <= 50,000，编号为1到P) 连接。每条道路i或者航线i连接城镇A_i (1 <= A_i <= T)到B_i (1 <= B_i <= T)，花费为C_i。对于道路，0 <= C_i <= 10,000;然而航线的花费很神奇，花费C_i可能是负数(-10,000 <= C_i <= 10,000)。道路是双向的，可以从A_i到B_i，也可以从B_i到A_i，花费都是C_i。然而航线与之不同，只可以从A_i到B_i。事实上，由于最近恐怖主义太嚣张，为了社会和谐，出台 了一些政策保证：如果有一条航线可以从A_i到B_i，那么保证不可能通过一些道路和航线从B_i回到A_i。由于FJ的奶牛世界公认十分给力，他需要运送奶牛到每一个城镇。他想找到从发送中心城镇S(1 <= S <= T) 把奶牛送到每个城镇的最便宜的方案，或者知道这是不可能的。
Input

• 第1行：四个空格隔开的整数: T, R, P, and S * 第2到R+1行：三个空格隔开的整数（表示一条道路）：A_i, B_i 和 C_i * 第R+2到R+P+1行：三个空格隔开的整数（表示一条航线）：A_i, B_i 和 C_i
  Output

• 第1到T行：从S到达城镇i的最小花费，如果不存在输出”NO PATH”。

Sample Input

6 3 3 4

1 2 5

3 4 5

5 6 10

3 5 -100

4 6 -100

1 3 -10

样例输入解释：

一共六个城镇。在1-2，3-4，5-6之间有道路，花费分别是5，5，10。同时有三条航线：3->5，

4->6和1->3，花费分别是-100，-100，-10。FJ的中心城镇在城镇4。

Sample Output

NO PATH

NO PATH

5

0

-95

-100

样例输出解释：

FJ的奶牛从4号城镇开始，可以通过道路到达3号城镇。然后他们会通过航线达到5和6号城镇。

但是不可能到达1和2号城镇。

Source

Gold

题解

• 本题有卡SPFA的数据
• 被卡中…–2015.7.17

var
 w:array[0..200000,1..3]of longint;
 x,s,dist:array[0..25000]of longint;
 t:array[0..20000000]of longint;
 i,j,k:longint;
 m1,m2,n,len,a,b,c,head,tail,start,finish,tt,v,flag,ans:longint;
procedure init(a,b,c:longint);
begin
 w[len,1]:=b; w[len,2]:=c;
 if w[a,3]=0
 then w[a,3]:=len else w[w[a,1],3]:=len;
 w[a,1]:=len; inc(len);
end;

begin
 readln(n,m1,m2,start); len:=n+1;
 for i:=1 to m1 do
  begin
   readln(a,b,c);
   init(a,b,c); init(b,a,c);
  end;
 for i:=1 to m2 do
  begin
   readln(a,b,c);
   init(a,b,c);
  end;
 for i:=1 to n do
  dist[i]:=maxlongint;
 flag:=0; head:=1; tail:=2; t[head]:=start; s[start]:=1; dist[start]:=0;
 while head<tail do
  begin
   v:=t[head]; tt:=w[v,3];
   while tt<>0 do
    begin
     if w[tt,2]+dist[v]<dist[w[tt,1]]
     then begin
      dist[w[tt,1]]:=w[tt,2]+dist[v];
      inc(x[w[tt,1]]); if x[w[tt,1]]>n then begin flag:=1; break; end;
      if s[w[tt,1]]=0
      then begin s[w[tt,1]]:=1; t[tail]:=w[tt,1]; inc(tail); end;
     end;
      tt:=w[tt,3];
    end;
   if flag=1 then break; s[v]:=0; inc(head);
  end;
 if flag=1 then begin writeln('NO PATH'); halt; end
 else
  for i:=1 to n do
   if dist[i]=maxlongint
   then writeln('NO PATH')
   else writeln(dist[i]);
end.