最优乘车-ssl 1194

题意：

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;
  maxm=100;


var
  n,m:longint;
  a:array[1..maxm,1..maxn] of longint;
  f:array[1..maxn,1..maxn] of longint;
  s:array[1..maxm] of longint;


procedure init;
var
  i,j,l:longint;
begin
  readln(m,n);
  for i:=1 to m do
  begin
    s[i]:=0;
    while not eoln do
    begin
      inc(s[i]);
      read(a[i,s[i]]);
    end;
    readln;
  end;


  for i:=1 to n do
  for j:=1 to n do f[i,j]:=maxint;
   for i:=1 to m do
    for j:=1 to s[i]-1 do
     for l:=j+1 to s[i] do
     f[a[i,j],a[i,l]]:=1;
end;


procedure work;
var
    i,j,l,k:longint;
    min:longint;
begin
  for i:=n downto 1 do
   for j:=1 to n do
   begin
     if i=j then continue;
     min:=f[i,j];
     for l:=1 to n do
     if f[i,l]+f[l,j]<min then min:=f[i,l]+f[l,j];
     f[i,j]:=min;
   end;
end;


procedure travel;
begin
  if f[1,n]=maxint then writeln('NO') else writeln(f[1,n]-1);
end;


begin
  init;
  work;
  travel;
end.