洛谷1346 电车 最短路

题目描述

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

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

输入输出格式

输入格式：

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

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

输出格式：

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

题解：最短路水题。第一条轨道连一条权值为0的边，其余连权值为1的边。单向边！单向边！单向边！

const  maxn=3000;  maxm=10000;var  edge:array[1..maxm,1..3]of longint;  last,next:array[0..maxm]of longint;  dis,f:array[1..maxn]of longint;  state:array[1..100000]of longint;  n,m,s,t,sum:longint;procedure add(x,y,z:longint);begin  inc(sum);  edge[sum,1]:=x;edge[sum,2]:=y;edge[sum,3]:=z;  next[sum]:=last[x];  last[x]:=sum;end;procedure init;var  i,x,y,z,j:longint;begin  readln(n,s,t);  for i:=1 to n do  begin    read(m);    for j:=1 to m do    begin      read(x);      if j=1 then      begin        add(i,x,0);      end      else      begin        add(i,x,1);      end;    end;    readln;  end;  fillchar(dis,sizeof(dis),$7f);end;procedure spfa(x:longint);var  head,tail,now,py:longint;  i:longint;begin  head:=0;tail:=1;  state[1]:=x;f[x]:=1;dis[x]:=0;  repeat    inc(head);    now:=state[head];    i:=last[now];    while i<>0 do    begin      py:=edge[i,2];      if dis[now]+edge[i,3]<dis[py] then      begin        dis[py]:=dis[now]+edge[i,3];        if f[py]=0 then        begin          inc(tail);          state[tail]:=py;          f[py]:=1;        end;      end;      i:=next[i];    end;    f[now]:=0;  until head>=tail;end;begin  init;  spfa(s);  if dis[t]>1000000 then writeln(-1) else  writeln(dis[t]);end.