记录编号	90852	评测结果	AAATTTTTTT
题目名称	假期旅行计划	最终得分	30
用户昵称	超级傲娇的AC酱	是否通过	未通过
代码语言	C++	运行时间	7.503 s
提交时间	2014-03-10 13:10:07	内存使用	0.31 MiB

/*
King_CH_Designed
on 2014/3/10
*/
#include<iostream>
#include<vector>
#include<cstdio>
#include<map>
#include<cmath>
#include<queue>
using namespace std;
const long long oo=(2<<62);
vector<bool>TF;
map<pair<int,int>,int>Map;
map<pair<int,int>,int>::iterator it;
vector<vector<pair<long long,long long> > >E;
inline long long Djs(long long,long long);
long long n,m,k,q,Dis;
int main()
{
	long long i,j,p,x,y,num=0,Ans=0;
	freopen("vacationgold.in","r",stdin);
	freopen("vacationgold.out","w",stdout);
	ios::sync_with_stdio(false);
	cin>>n>>m>>k>>q;
	E.resize(n);TF.resize(n,false);
	for(i=0;i<m;i++)
	{
		cin>>x>>y>>p;
		E[x-1].push_back(make_pair(p,y-1));
	}
	for(i=0;i<k;i++)
	{
		cin>>x;
		TF[x-1]=true;
	}
	for(i=0;i<n;i++)
		for(j=0;j<n;j++)
			if(i!=j)
			{
				Dis=Djs(i,j);
				if(Dis!=oo)Map[make_pair(i,j)]=Dis;
			}
	for(i=0;i<q;i++)
	{
		cin>>x>>y;
		it=Map.find(make_pair(x-1,y-1));
		if(it!=Map.end())
		{
			num++;
			Ans+=it->second;
		}
	}
	cout<<num<<endl<<Ans;
	return 0;
}
inline long long Djs(long long s,long long e)
{
	priority_queue<pair<long long,pair<long long,bool> >,vector<pair<long long,pair<long long,bool> > >,greater<pair<long long,pair<long long,bool> > > >Q;
	Q.push(make_pair(0,make_pair(s,TF[s])));
	vector<bool>v(n,false);
	long long pos,Len,i;
	bool Sg;
	while(!Q.empty())
	{
		Len=Q.top().first;
		pos=Q.top().second.first;
		Sg=Q.top().second.second;
		Q.pop();
		if(pos==e)
		{
			if(Sg==false)
				goto CH;
			else
				return Len;
		}
		if(v[pos]==false)
		{
			v[pos]=true;
			for(i=0;i<E[pos].size();i++)
				if(v[E[pos][i].second]==false)
					Q.push(make_pair(Len+E[pos][i].first,make_pair(E[pos][i].second,Sg|TF[E[pos][i].second])));
		}
		CH:;
	}
	return oo;
}