diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-09-15 08:04:50 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-09-15 08:04:50 +0100 |
| commit | 5fde5dc5dac8d0a16eb105b6c37eaca659676f34 (patch) | |
| tree | a3baefa1d33362ed489d70899bea7aa8f8def6f5 /challenge-078 | |
| parent | 125aa8d5d7545fae0ad1266edb8d45b23ad48470 (diff) | |
| parent | 72d9364aabf5834fa7f72bcfc460679f5e365942 (diff) | |
| download | perlweeklychallenge-club-5fde5dc5dac8d0a16eb105b6c37eaca659676f34.tar.gz perlweeklychallenge-club-5fde5dc5dac8d0a16eb105b6c37eaca659676f34.tar.bz2 perlweeklychallenge-club-5fde5dc5dac8d0a16eb105b6c37eaca659676f34.zip | |
Merge pull request #2298 from toshikFedotov/ch-078-2
ch#078-2
Diffstat (limited to 'challenge-078')
| -rwxr-xr-x | challenge-078/anton-fedotov/perl/ch-2.pl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-078/anton-fedotov/perl/ch-2.pl b/challenge-078/anton-fedotov/perl/ch-2.pl new file mode 100755 index 0000000000..7cb8506fe2 --- /dev/null +++ b/challenge-078/anton-fedotov/perl/ch-2.pl @@ -0,0 +1,10 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use v5.30; + +my @A = (7, 4, 2, 6, 3); +my @B = (1, 3, 4); + +for (@B) { say join ' ', (@A[$_..$#A],@A[0..$_-1]) }; |