貌似一直不写题解不太好QAQ 但是找不到题啊...
随便写点水题来补博客吧
题目不pa了，点链接吧...
很明显这是道sb题...
思路： 对于每一个僵尸城市预处理其 s 距离内的城市，然后用个cost数组记录点权，然后直接跑spfa就好了。
看下数据，可以发现如果k值较大有可能会TLE（没测不知道QAQ）。所以加个简单的优化就可以吧（可能吧QAQ）。
简单的优化就是在预处理的时候如果某一个僵尸城市 s 距离内的城市有另外的僵尸城市，辣么这个僵尸城市可以不入队，这样可以少掉一点重复的无效搜索。
依旧看一下数据 发现答案会爆 int 所以就记得开 int64(long long)。
所以看数据是可以看出坑点的... (完美避开=v=
然后直接代码吧。
type
node=record
y:longint;
next:longint;
end;
var n,m,k,s:longint;
tot:longint;
cost1,cost2:longint;
x,y:longint;
i:longint;
cost,first,a:array[..]of longint;
q:array[..]of longint;
e:array[..]of node;
dist:array[..]of int64;
v:array[..]of boolean;
procedure adde(x,y:longint);
begin
e[tot].next:=first[x];
e[tot].y:=y;
first[x]:=tot;
inc(tot);
end;
procedure bfs(x:longint);
var head,tail:longint;
now,y,i:longint;
begin
head:=;
tail:=;
for i:= to n do
dist[i]:=-;
dist[x]:=;
q[]:=x;
while head<=tail do
begin
now:=q[head];
i:=first[now];
while i<>- do
begin
y:=e[i].y;
if (dist[y]<)and(cost[y]>=) then
begin
dist[y]:=dist[now]+;
cost[y]:=cost2;
if dist[y]<s then
begin
inc(tail);
q[tail]:=y;
end;
end;
i:=e[i].next;
end;
inc(head);
end;
end;
procedure spfa(s:longint);
var
head,tail:longint;
now,y,i:longint;
begin
head:=;
tail:=;
for i:= to n do
begin
dist[i]:= << ;
v[i]:=false;
end;
dist[s]:=;
q[]:=s;
v[s]:=true;
while head<=tail do
begin
now:=q[head];
i:=first[now];
while i<>- do
begin
y:=e[i].y;
if (dist[y]>dist[now]+cost[y])and(cost[y]>=) then
begin
dist[y]:=dist[now]+cost[y];
if not v[y] then
begin
inc(tail);
q[tail]:=y;
v[y]:=true;
end;
end;
i:=e[i].next;
end;
inc(head);
v[now]:=false;
end;
end; begin
read(n,m,k,s);
read(cost1,cost2);
for i:= to k do
begin
read(a[i]);
cost[a[i]]:=-;
end;
for i:= to n do
first[i]:=-;
for i:= to m do
begin
read(x,y);
adde(x,y);
adde(y,x);
end;
for i:= to k do
bfs(a[i]);
for i:= to n do
if cost[i]= then cost[i]:=cost1;
spfa();
writeln(dist[n]-cost[n]);
end.