You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
938 B
Plaintext
34 lines
938 B
Plaintext
8 months ago
|
{ This is some puzzle thing from an old IP exam }
|
||
|
|
program puzzle;
|
||
|
|
|
||
|
|
var len, temp : integer;
|
||
|
|
var series : array [0 .. 20] of integer;
|
||
|
|
|
||
|
|
function canReachLast(i : integer; pos : integer; len : integer; series : array [0 .. 20] of integer) : integer;
|
||
|
|
begin
|
||
|
|
if pos < 0 or pos >= len or i >= len then
|
||
|
|
canReachLast := 0
|
||
|
|
else if len - 1 = pos + series[pos] or canReachLast(i + 1, pos + series[pos], len, series) = 1 then
|
||
|
|
canReachLast := 1
|
||
|
|
else
|
||
|
|
canReachLast := canReachLast(i + 1, pos - series[pos], len, series)
|
||
|
|
end;
|
||
|
|
|
||
|
|
function isSolvable(len : integer; series : array [0 .. 20] of integer) : integer;
|
||
|
|
begin
|
||
|
|
isSolvable := canReachLast(0, 0, len, series)
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
len := 0;
|
||
|
|
readln(temp);
|
||
|
|
series[len] := temp;
|
||
|
|
while series[len] <> 0 do
|
||
|
|
begin
|
||
|
|
len := len + 1;
|
||
|
|
readln(temp);
|
||
|
|
series[len] := temp
|
||
|
|
end;
|
||
|
|
len := len + 1;
|
||
|
|
writeln(isSolvable(len, series))
|
||
|
|
end.
|