洛谷 P1135 奇怪的电梯

题目描述

呵呵，有一天我做了一个梦，梦见了一种很奇怪的电梯。大楼的每一层楼都可以停电梯，而且第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。

输入输出样例

输入样例#1：
LIFT.IN
5 1 5
3 3 1 2 5
输出样例#1：
LIFT.OUT
3

深度优先搜索：
1.搜它能走的全部路径，在其中找最少次数。
2.楼层越过顶楼或者越过底楼就exit。
3.开一个布尔型判断，如果一条路径都没有，则输出-1。

var
  i,n,a,b,ans:longint;
  f:array [0..200] of longint;
  flag:array [0..200] of boolean;

procedure dfs(dep,now:longint);
begin
   if flag[now] then exit;
   if dep>=ans then exit;
   if now=b then
     begin
        if dep<ans then ans:=dep;
        exit;
     end;
   if now-f[now]>=1 then
      begin
         flag[now]:=true;
         dfs(dep+1,now-f[now]);
         flag[now]:=false;
      end;
   if now+f[now]<=n then
      begin
         flag[now]:=true;
         dfs(dep+1,now+f[now]);
         flag[now]:=false;
      end;
end;

begin
   readln(n,a,b);
   ans:=maxlongint;
   fillchar(flag,sizeof(flag),false);
   for i:=1 to n do read(f[i]);
   dfs(0,a);
   if ans=maxlongint then writeln('-1')
                     else writeln(ans);
end.