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