洛谷 P1346 电车

题目描述

在一个神奇的小镇上有着一个特别的电车网络，它由一些路口和轨道组成，每个路口都连接着若干个轨道，每个轨道都通向一个路口（不排除有的观光轨道转一圈后返回路口的可能）。在每个路口，都有一个开关决定着出去的轨道，每个开关都有一个默认的状态，每辆电车行驶到路口之后，只能从开关所指向的轨道出去，如果电车司机想走另一个轨道，他就必须下车切换开关的状态。

为了行驶向目标地点，电车司机不得不经常下车来切换开关，于是，他们想请你写一个程序，计算一辆从路口A到路口B最少需要下车切换几次开关。

输入输出格式

输入格式：
第一行有3个整数2<=N<=100，1<=A，B<=N，分别表示路口的数量，和电车的起点，终点。

接下来有N行，每行的开头有一个数字Ki(0<=Ki<=N-1)，表示这个路口与Ki条轨道相连，接下来有Ki个数字表示每条轨道所通向的路口，开关默认指向第一个数字表示的轨道。

输出格式：
输出文件只有一个数字，表示从A到B所需的最少的切换开关次数，若无法从A前往B，输出-1。

输入输出样例

输入样例#1：
3 2 1
2 2 3
2 3 1
2 1 2
输出样例#1：
0

做法：用需要切换按钮的次数做最短路；
代码如下：

const
  maxn=10000;
var
  a,b,n:longint;
  next,d,x,y,w,ls,list:array[0..maxn] of longint;
  v:array[0..maxn] of boolean;

procedure init;
var
  i,q,j,k:longint;
begin
  k:=0;
  readln(n,a,b);
  for i:=1 to n do
    begin
      read(q);
      for j:=1 to q do
        begin
          inc(k);
          x[k]:=i;
          read(y[k]);
          if j=1 then w[k]:=0
                 else w[k]:=1;
          next[k]:=ls[x[k]];
          ls[x[k]]:=k;
        end;
    end;
end;

procedure spfa;
var
  head,tail,t,i:longint;
begin
  head:=0;
  tail:=1;
  v[a]:=true;
  list[1]:=a;
  for i:=1 to n do
    d[i]:=maxlongint;
  d[a]:=0;
  while head<tail do
    begin
      inc(head);
      t:=ls[list[head]];
      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 not v[y[t]]
                      then begin
                             v[y[t]]:=true;
                             inc(tail);
                             list[tail]:=y[t];
                           end;
                  end;
          t:=next[t];
        end;
      v[list[head]]:=false;
    end;
end;

begin
  init;
  spfa;
  if d[b]=maxlongint  then writeln(-1)
                      else writeln(d[b]);
end.