最優乘車（廣度優先搜尋）

Description

　　H城是一個旅遊勝地，每年都有成千上萬的人前來觀光。為友善遊客，巴士公司在各個旅遊景點及飯店，飯店等地都設定了巴士站并開通了一些單程巴上線路。每條單程巴士線路從某個巴士站出發，依次途經若幹個巴士站，最終到達終點巴士站。 

　　一名旅客最近到H城旅遊，他很想去S公園遊玩，但如果從他所在的飯店沒有一路已士可以直接到達S公園，則他可能要先乘某一路巴士坐幾站，再下來換乘同一站台的另一路巴士, 這樣換乘幾次後到達S公園。 

　　現在用整數1,2,…N 給H城的所有的巴士站編号，約定這名旅客所在飯店的巴士站編号為1…S公園巴士站的編号為N。 

　　寫一個程式，幫助這名旅客尋找一個最優乘車方案,使他在從飯店乘車到S公園的過程中換車的次數最少。 

Input

　　輸入的第一行有兩個數字M和N(1<=M<=100 1

Output

　　輸出檔案隻有一行。如果無法乘巴士從飯店到達S公園，則輸出"N0"，否則輸出你的程式所找到的最少換車次數，換車次數為0表示不需換車即可到達• 

Sample Input

3 7
6 7
4 7 3 6
2 1 3 5

      

Sample Output

const
      

  maxn=500;
      

var
      

  a:array[1..maxn,1..maxn]of boolean;
      

  v:array[1..maxn] of boolean;
      

  road,state,father:array[1..maxn] of integer;
      

  m,n:integer;
      

procedure init;
      

  var
      

    i,j,k:integer;
      

  begin
      

    for i:=1 to maxn do
      

      state[i]:=-1;
      

    readln(m);
      

    readln(n);
      

    for i:=1 to m do
      

      begin
      

        k:=0;
      

        repeat
      

          inc(k);
      

          read(road[k]);
      

          for j:=1 to k-1 do
      

          a[road[j],road[k]]:=true;
      

        until eoln;
      

     end;
      

end;
      

procedure main;
      

  var
      

    head,tail,i,j,k:integer;
      

  begin
      

    head:=0;tail:=1;father[1]:=1;state[1]:=-1;v[1]:=true;
      

    repeat
      

      inc(head);
      

      for i:=1 to n do
      

        if a[father[head],i] and not v[i]
      

          then begin
      

                 inc(tail);
      

                 v[i]:=true;
      

                 father[tail]:=i;
      

                 state[i]:=state[father[head]]+1;
      

               end;
      

    until (head=tail) or v[n];
      

    if  head=tail then writeln('NO')
      

                  else writeln(state[i]);
      

end;
      

begin
      

  init;
      

  main;
      

end.