在一个神奇的小镇上有着一个特别的电车网络，它由一些路口和轨道组成，每个路口都连接着若干个轨道，每个轨道都通向一个路口（不排除有的观光轨道转一圈后返回路口的可能）。在每个路口，都有一个开关决定着出去的轨道，每个开关都有一个默认的状态，每辆电车行驶到路口之后，只能从开关所指向的轨道出去，如果电车司机想走另一个轨道，他就必须下车切换开关的状态。
为了行驶向目标地点，电车司机不得不经常下车来切换开关，于是，他们想请你写一个程序，计算一辆从路口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做一次spfa。
代码
const maxn=200; var s,ls,next,d:array[0..maxn] of int64; a:array[0..maxn,1..3] of longint; x:array[0..maxn,0..maxn] of longint; v:array[0..maxn] of boolean; i,j,n,ans,m,n1,p,q:longint; procedure spfa; var head,tail,t:longint; begin head:=0; tail:=1; for i:=1 to n do d[i]:=maxlongint; d[p]:=0; v[p]:=true; s[1]:=p; while head<tail do begin inc(head); t:=ls[s[head]]; while t>0 do begin if d[a[t,1]]+x[a[t,1],a[t,2]]<d[a[t,2]] then begin d[a[t,2]]:=d[a[t,1]]+x[a[t,1],a[t,2]]; if not v[a[t,2]] then begin v[a[t,2]]:=true; inc(tail); s[tail]:=a[t,2]; end; end; t:=next[t]; end; v[s[head]]:=false; end; end; begin readln(n,p,q); for i:=1 to n do for j:=1 to n do x[i,j]:=maxlongint;; for i:=1 to n do begin read(n1); for j:=1 to n1 do begin inc(m); a[m,1]:=i; read(a[m,2]); if j=1 then begin x[i,a[m,2]]:=0;end else x[i,a[m,2]]:=1; next[m]:=ls[i]; ls[i]:=m; end; readln; end; spfa; if d[q]=maxlongint then writeln(-1) else writeln(d[q]); end.
