奇怪的电梯

题目:

题目描述

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

作者思路：dfs，二分，会爆内存。

代码：

//爆内存
var a:array[0..201] of longint;
    n,t,m,ans,i:longint;
procedure dfs(f,s:longint);
begin
  if f=m then
  begin
    if s<ans then ans:=s;
    exit;
  end;
  if f+a[f]<=n then dfs(f+a[f],s+1) else
  if f-a[f]>0 then dfs(f-a[f],s+1);
end;
begin
  read(n,t,m);
  for i:=1 to n do read(a[i]);
  ans:=maxlongint;
  dfs(t,0);
  if ans=maxlongint then write(-1) else write(ans);
end.