diff options
| -rwxr-xr-x | challenge-071/perlboy1967/perl/ch-1.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/challenge-071/perlboy1967/perl/ch-1.pl b/challenge-071/perlboy1967/perl/ch-1.pl index eb84290645..c4fb104fd0 100755 --- a/challenge-071/perlboy1967/perl/ch-1.pl +++ b/challenge-071/perlboy1967/perl/ch-1.pl @@ -12,7 +12,7 @@ use warnings; my ($N) = @ARGV; die "Argument must be a positive number ( 1 <= N <= 50)" - unless (defined $N && $N =~ m#^[2-9][0-9]*# and $N <= 50); + unless (defined $N && $N =~ m#^[1-9][0-9]*$# and $N <= 50); my @iPool = (1 .. 50); my @array = map { splice(@iPool, int(rand(scalar(@iPool))), 1) } (1 .. $N); @@ -20,7 +20,8 @@ my @array = map { splice(@iPool, int(rand(scalar(@iPool))), 1) } (1 .. $N); my @peak = map { $array[$_] } grep { $array[$_] - if ($array[$_] > ($array[$_ + 1] // 0)); + if ($array[$_] > ($array[$_ + 1] // 0) and + $array[$_] > ($array[$_ - 1] // 0)); } (0 .. $N - 2); printf "Array: [%s]\n", join(', ', @array); |