diff options
| author | Dave Cross <dave@dave.org.uk> | 2020-09-14 09:47:27 +0100 |
|---|---|---|
| committer | Dave Cross <dave@dave.org.uk> | 2020-09-14 09:47:27 +0100 |
| commit | 93ee64552c1f01ab842b6877e549d44fe824bd89 (patch) | |
| tree | 510ae765ae87d94737c0274567f3baef06d8db36 /challenge-078/dave-cross | |
| parent | b893c6f6db580f161759fb225081a73b671dcad6 (diff) | |
| download | perlweeklychallenge-club-93ee64552c1f01ab842b6877e549d44fe824bd89.tar.gz perlweeklychallenge-club-93ee64552c1f01ab842b6877e549d44fe824bd89.tar.bz2 perlweeklychallenge-club-93ee64552c1f01ab842b6877e549d44fe824bd89.zip | |
Shorten code
Diffstat (limited to 'challenge-078/dave-cross')
| -rw-r--r-- | challenge-078/dave-cross/perl/ch-2.pl | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/challenge-078/dave-cross/perl/ch-2.pl b/challenge-078/dave-cross/perl/ch-2.pl index 601ddd9520..47c45d8708 100644 --- a/challenge-078/dave-cross/perl/ch-2.pl +++ b/challenge-078/dave-cross/perl/ch-2.pl @@ -8,10 +8,7 @@ my ($array, $idx) = @ARGV; my @array = split /,/, $array; my @idx = split /,/, $idx; -for (@idx) { - my @rotated = rotate($_, @array); - say '[', join(', ', @rotated), ']'; -} +say '[', join(', ', rotate($_, @array)), ']' for @idx; sub rotate { my ($idx, @array) = @_; |