【洛谷 1346】电车

问题描述
在一个神奇的小镇上有着一个特别的电车网络，它由一些路口和轨道组成，每个路口都连接着若干个轨道，每个轨道都通向一个路口（不排除有的观光轨道转一圈后返回路口的可能）。在每个路口，都有一个开关决定着出去的轨道，每个开关都有一个默认的状态，每辆电车行驶到路口之后，只能从开关所指向的轨道出去，如果电车司机想走另一个轨道，他就必须下车切换开关的状态。
为了行驶向目标地点，电车司机不得不经常下车来切换开关，于是，他们想请你写一个程序，计算一辆从路口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