问题描述
在一个神奇的小镇上有着一个特别的电车网络,它由一些路口和轨道组成,每个路口都连接着若干个轨道,每个轨道都通向一个路口(不排除有的观光轨道转一圈后返回路口的可能)。在每个路口,都有一个开关决定着出去的轨道,每个开关都有一个默认的状态,每辆电车行驶到路口之后,只能从开关所指向的轨道出去,如果电车司机想走另一个轨道,他就必须下车切换开关的状态。
为了行驶向目标地点,电车司机不得不经常下车来切换开关,于是,他们想请你写一个程序,计算一辆从路口A到路口B最少需要下车切换几次开关。
输入
第一行有3个整数2<=N<=100,1<=A,B<=N,分别表示路口的数量,和电车的起点,终点。
接下来有N行,每行的开头有一个数字Ki(0<=Ki<=N-1),表示这个路口与Ki条轨道相连,接下来有Ki个数字表示每条轨道所通向的路口,开关默认指向第一个数字表示的轨道。
输出
输出文件只有一个数字,表示从A到B所需的最少的切换开关次数,若无法从A前往B,输出-1。
样例输入
3 2 1
2 2 3
2 3 1
2 1 2
样例输出
0
算法讨论
用切换次数当边权值做spfa,每个路口的第一个方向为默认状态,即切换次数为0,其余的都是1。
const
maxn=1000;
maxm=10000;
var
x,y,w,next:array[1..maxm] of longint;
d,v,ls,list:array[1..maxn] of longint;
i,j,n,a,b,k,p:longint;
procedure spfa;
var
hd,tl,t:longint;
begin
hd:=0; tl:=1;
v[a]:=1;
list[1]:=a;
for i:=1 to n do
d[i]:=maxlongint;
d[a]:=0;
while hd<>tl do
begin
inc(hd);
t:=ls[list[hd]];
while t>0 do
begin
if d[x[t]]+w[t]<d[y[t]]
then begin
d[y[t]]:=d[x[t]]+w[t];
if v[y[t]]=0
then begin
v[y[t]]:=1;
inc(tl);
list[tl]:=y[t]
end;
end;
t:=next[t]
end;
v[list[hd]]:=0
end;
end;
begin
read(n,a,b);
for i:=1 to n do
begin
read(k);
for j:=1 to k do
begin
inc(p);
x[p]:=i;
read(y[p]);
if j=1
then w[p]:=0
else w[p]:=1;
next[p]:=ls[x[p]];
ls[x[p]]:=p
end;
end;
spfa;
if d[b]=maxlongint
then write(-1)
else write(d[b])
end.
Pixiv ID:61829711