奇怪的电梯 bfs

 

题目描述

呵呵，有一天ssxyh做了一个梦，梦见了一种很奇怪的电梯。大楼的每一层楼都可以停电梯，而且第i层楼(1<=i<=N)上有一个数字Ki(0<=Ki<=N)。电梯只有四个按钮：开，关，上，下。上下的层数等于当前楼层上的那个数字。当然，如果不能满足要求，相应的按钮就会失灵。例如：3 3 1 2 5代表了Ki(K1=3,K2=3,……)，从一楼开始。在一楼，按“上”可以到4楼，按“下”是不起作用的，因为没有-2楼。那么，从A楼到B楼至少要按几次按钮呢？

输入格式

输入文件共有二行，第一行为三个用空格隔开的正整数，表示N,A,B(1≤N≤200, 1≤A,B≤N)，第二行为N个用空格隔开的正整数，表示Ki。

输出格式

输出文件仅一行，即最少按键次数,若无法到达，则输出-1

样例输入

5 1 5 3 3 1 2 5

样例输出

3 <!--script src="http://www.rqnoj.cn/RQNOJ_PrintStatusWithPHP.asp?PID=161"-->

三维状态图像

 

var c:array[0..200] of longint;
dui:array[0..200,1..2] of longint;
v:array[0..200] of boolean;
n,m,i,j,k,a,b,sum:longint;
function bfs(x:longint):longint;
var t,w,dx,now:longint;
begin
 fillchar(dui,sizeof(dui),0);
 fillchar(v,sizeof(v),0);
 t:=0; w:=1; dui[1,1]:=x;
 v[x]:=true; bfs:=0;//fuck
 while t<w do
  begin
   inc(t); dx:=dui[t,1];
   for i:=-1 to 1 do
    if i<>0 then
    begin
     now:=dx+i*c[dx];
     if (now>0) and (now<=n) then
      if not v[now] then
      begin
       inc(w); dui[w,1]:=now;
       v[now]:=true;
       dui[w,2]:=dui[t,2]+1;
       if now=b then exit(dui[w,2]);
      end;
    end;
  end;
end;
begin
 readln(n,a,b);
 for i:=1 to n do
  read(c[i]);
 if a=b then writeln(0) //fuck
 else
  begin
   k:=bfs(a);
   if k<>0 then write(k)
   else write(-1);
  end;
end.