diff options
| -rwxr-xr-x[-rw-r--r--] | challenge-131/perlboy1967/perl/ch-1.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/challenge-131/perlboy1967/perl/ch-1.pl b/challenge-131/perlboy1967/perl/ch-1.pl index 05558a8351..06f3d68023 100644..100755 --- a/challenge-131/perlboy1967/perl/ch-1.pl +++ b/challenge-131/perlboy1967/perl/ch-1.pl @@ -26,18 +26,16 @@ done_testing; sub consecutiveArrays { - my @r = ([]); + no warnings 'once'; slide { push(@{$r[-1]}, $a); - if ($a != $b - 1) { - push(@r, []); - } + push(@r, []) if ($a != $b - 1); } @_; push(@{$r[-1]}, $_[-1]); - return [@r]; + return \@r; } |