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