洛谷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.