Description
呵呵,有一天我做了一个梦,梦见了一种很奇怪的电梯。大楼的每一层楼都可以停电梯,而且第i层楼(1<=i<=N)上有一个数字Ki(0<=Ki<=N)。电梯只有四个按钮:开,关,上,下。上下的层数等于当前楼层上的那个数字。当然,如果不能满足要求,相应的按钮就会失灵。例如:3 3 1 2 5代表了Ki(K1=3,K2=3,……),从一楼开始。在一楼,按“上”可以到4楼,按“下”是不起作用的,因为没有-2楼。那么,从A楼到B楼至少要按几次按钮呢?
Input
输入文件共有二行,第一行为三个用空格隔开的正整数,表示N,A,B(1≤N≤200, 1≤A,B≤N),第二行为N个用空格隔开的正整数,表示Ki。
Output
输出文件仅一行,即最少按键次数,若无法到达,则输出-1。
Sample Input
5 1 5 3 3 1 2 5
Sample Output
3
解题思路:先读入数据,用广搜的思想,寻找从A楼道B楼的最佳路径,然后记录下来,最后输出的时候递归回去就行了。
程序:
const
maxn=1000;
var
father,state,a,f:array[1..maxn] of longint;
n,a1,b,ans:longint;
procedure init;
var
i:longint;
begin
readln(n,a1,b);
for i:=1 to n do
read(a[i]);
f[a1]:=1;
ans:=0;
end;
function check(x:longint):boolean;
begin
if (x>0) and (x<=n) and (f[x]=0) then exit(true);
check:=false;
end;
procedure dg(x:longint);
begin
if x=0 then exit;
dg(father[x]);
inc(ans);
end;
procedure bfs;
var
h,t:longint;
begin
h:=0;
t:=1;
state[1]:=a1;
father[1]:=0;
repeat
inc(h);
if check(state[h]+a[state[h]]) then
begin
inc(t);
state[t]:=state[h]+a[state[h]];
father[t]:=h;
f[state[t]]:=1;
if state[t]=b then
begin
dg(t);
break;
end;
end;
if check(state[h]-a[state[h]]) then
begin
inc(t);
state[t]:=state[h]-a[state[h]];
father[t]:=h;
f[state[t]]:=1;
if state[t]=b then
begin
dg(t);
break;
end;
end;
until h>=t;
if h>=t then writeln(-1)
else writeln(ans-1);
end;
begin
init;
if a1=b then writeln(0)
else bfs;
end.