diff options
| author | Walt Mankowski <waltman@pobox.com> | 2020-09-14 20:25:47 -0400 |
|---|---|---|
| committer | Walt Mankowski <waltman@pobox.com> | 2020-09-14 20:25:47 -0400 |
| commit | 044b8cef921ab1b550289a4e989c17a013bf0314 (patch) | |
| tree | 347fe24898137be63e40197635e170889b5b5013 | |
| parent | 753f17889618f3da31e9d0317065105818ba1d5a (diff) | |
| download | perlweeklychallenge-club-044b8cef921ab1b550289a4e989c17a013bf0314.tar.gz perlweeklychallenge-club-044b8cef921ab1b550289a4e989c17a013bf0314.tar.bz2 perlweeklychallenge-club-044b8cef921ab1b550289a4e989c17a013bf0314.zip | |
I don't need the special case for $b==0
| -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]); } |