challenge-091/juliodcs/perl/ch-2.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

use strict;
use warnings;
use Lingua::EN::Numbers 'num2en';
use feature 'say';
use experimental 'signatures';

my @input = @ARGV;

sub advance($pos = 0) {
    return 1 if $pos == @ARGV - 1;
    return 0 if $pos >= @ARGV || $input[$pos] == 0;
    return advance($pos + $input[$pos]);
}

say advance;