diff options
| -rw-r--r-- | challenge-078/walt-mankowski/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-078/walt-mankowski/perl/ch-2.pl b/challenge-078/walt-mankowski/perl/ch-2.pl index f02de2052a..91095a9e6c 100644 --- a/challenge-078/walt-mankowski/perl/ch-2.pl +++ b/challenge-078/walt-mankowski/perl/ch-2.pl @@ -24,5 +24,5 @@ for my $b (@b) { } sub rotate_by($b, @a) { - return $b == 0 ? @a : (@a[$b..$#a], @a[0..$b-1]); + return (@a[$b..$#a], @a[0..$b-1]); } |