[Usaco2011 Jan]道路和航线

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号城镇。

---

这题裸的单源最短路对吧，负边权直接上SPFA就好了。。。

然后你就可以获得TLE的好成绩，当然，不排除-Owys的优化

于是SPFA就有了一个优化，SLF优化，可以水过去，但是我没写

我们还是来讨论一下正解如何写。为什么这题不能用dijkstra，因为它有负边权。但是我们仔细观察发现，负边权只能是航线，而且航线只会连接两个无法直接到到的联通块，也就是说，我们可以在联通块内跑dijkstra

那么块与块之间的联系呢？这题缩完点后就是个DAG，那么我们就可以拓扑了，用拓扑处理块与块之间的关系，块内直接dijkstra，那么这题就做完了

然后有一些细节问题：

• 拓扑序需要从S所在联通块开始，因此入度要做一些更改
• 一个联通块开始dijkstra的时候，需要把所有的因为航线确定的点都扔到初始堆里面

/*program from Wolfycz*/
#include<cmath>
#include<vector>
#include<cstdio>
#include<cstring>
#include<iostream>
#include<algorithm>
#define inf 1e9
using namespace std;
typedef long long ll;
typedef unsigned int ui;
typedef unsigned long long ull;
inline int read(){
	int x=0,f=1;char ch=getchar();
	for (;ch<'0'||ch>'9';ch=getchar())	if (ch=='-')    f=-1;
	for (;ch>='0'&&ch<='9';ch=getchar())	x=(x<<1)+(x<<3)+ch-'0';
	return x*f;
}
inline void print(int x){
	if (x>=10)	print(x/10);
	putchar(x%10+'0');
}
const int N=2.5e4,M=5e4;
struct S1{
	int pre[(M<<1)+10],now[N+10],child[(M<<1)+10],val[(M<<1)+10],tot;
	void join(int x,int y,int z){pre[++tot]=now[x],now[x]=tot,child[tot]=y,val[tot]=z;}
	void insert(int x,int y,int z){join(x,y,z),join(y,x,z);}
}Rod;
struct S2{
	int pre[M+10],now[N+10],child[M+10],val[M+10],tot;
	void join(int x,int y,int z){pre[++tot]=now[x],now[x]=tot,child[tot]=y,val[tot]=z;}
}Pla;
struct S3{
	#define ls (p<<1)
	#define rs (p<<1|1)
	#define fa (p>>1)
	struct node{
		int x,v;
		bool operator <(const node &a)const{return v<a.v;}
	}Q[N+10];
	int tot;
	void insert(int x,int v){
		Q[++tot]=(node){x,v};
		int p=tot;
		while (p!=1&&Q[p]<Q[fa])	swap(Q[p],Q[fa]),p=fa;
	}
	void Delete(){
		Q[1]=Q[tot--];
		int p=1,son;
		while (ls<=tot){
			if (rs>tot||Q[ls]<Q[rs])	son=ls;
			else	son=rs;
			if (Q[son]<Q[p])	swap(Q[son],Q[p]),p=son;
			else	break;
		}
	}
}Heap;
int from[M+10],to[M+10];//航线边的起始和结束
int col[N+10],deg[N+10],dis[N+10];//点所属联通块编号；联通块度数；每个点的距离
int h[N+10];
bool vis[N+10];
vector<pair<int,int> >vec[N+10];
int n,m,q,S,size;
void dfs(int x){//大水漫灌法
	if (col[x]==size)	return;
	col[x]=size;
	for (int p=Rod.now[x],son=Rod.child[p];p;p=Rod.pre[p],son=Rod.child[p])	dfs(son);
}
void Get_deg(int x){//从S所在联通块开始，从新确定度数
	if (vis[x])	return;
	vis[x]=1;
	for (int p=Pla.now[x],son=Pla.child[p];p;p=Pla.pre[p],son=Pla.child[p])	deg[son]++,Get_deg(son);
}
void Dijkstra(int type){
	for (int i=0;i<(int)vec[type].size();i++)	Heap.insert(vec[type][i].first,vec[type][i].second);
	while (Heap.tot){
		int Now=Heap.Q[1].x;
		Heap.Delete();
		if (vis[Now])	continue;
		vis[Now]=1;
		for (int p=Rod.now[Now],son=Rod.child[p];p;p=Rod.pre[p],son=Rod.child[p]){
			if (dis[son]>dis[Now]+Rod.val[p]){
				dis[son]=dis[Now]+Rod.val[p];
				Heap.insert(son,dis[son]);
			}
		}
	}
}
void topo(){
	memset(vis,0,sizeof(vis));
	int head=1,tail=1;
	h[1]=col[S],vec[col[S]].push_back(make_pair(S,dis[S]=0));
	for (;head<=tail;head++){
		int Now=h[head];
		Dijkstra(Now);
		for (int p=Pla.now[Now],son=Pla.child[p];p;p=Pla.pre[p],son=Pla.child[p]){
			vec[son].push_back(make_pair(to[p],dis[to[p]]=min(dis[to[p]],dis[from[p]]+Pla.val[p])));//记得取min
			if (!(--deg[son]))	h[++tail]=son;
		}
	}
}
int main(){
	n=read(),m=read(),q=read(),S=read();
	memset(dis,63,sizeof(dis));
	for (int i=1;i<=m;i++){
		int x=read(),y=read(),z=read();
		Rod.insert(x,y,z);
	}
	for (int i=1;i<=n;i++)	if (!col[i])	++size,dfs(i);
	for (int i=1;i<=q;i++){
		int x=read(),y=read(),z=read();
		Pla.join(col[x],col[y],z),from[Pla.tot]=x,to[Pla.tot]=y;
	}
	Get_deg(col[S]);
	topo();
	for (int i=1;i<=n;i++)	printf(dis[i]>inf?"NO PATH\n":"%d\n",dis[i]);
	return 0;
}