diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-08-27 12:46:30 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-08-27 12:46:30 +0100 |
| commit | 362bbeeeed6e5cc41282a90d0b4b1212babc73b3 (patch) | |
| tree | 5026a8b6258bd009ee968414d5dfc7b022f1495b | |
| parent | c84b508435d04b3f7c993b44e7bb3f14091ebe21 (diff) | |
| parent | 5ad76f91ac4058f097fe564ab1baada91cab6588 (diff) | |
| download | perlweeklychallenge-club-362bbeeeed6e5cc41282a90d0b4b1212babc73b3.tar.gz perlweeklychallenge-club-362bbeeeed6e5cc41282a90d0b4b1212babc73b3.tar.bz2 perlweeklychallenge-club-362bbeeeed6e5cc41282a90d0b4b1212babc73b3.zip | |
Merge pull request #564 from Scimon/master
Slight tweak to acutally use the R meta operator for once
| -rw-r--r-- | challenge-023/simon-proctor/perl6/ch-1.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-023/simon-proctor/perl6/ch-1.p6 b/challenge-023/simon-proctor/perl6/ch-1.p6 index b1b6e636a0..06f12c70ab 100644 --- a/challenge-023/simon-proctor/perl6/ch-1.p6 +++ b/challenge-023/simon-proctor/perl6/ch-1.p6 @@ -14,7 +14,7 @@ multi sub MAIN( ) { die "N must between 1 and {@vals.elems-1}" unless 0 < $n <= @vals.elems-1; for ^$n { - @vals = @vals.rotor(2=>-1).map( { $_[1] - $_[0] }) + @vals = @vals.rotor(2=>-1).map( { [R-] |$_ } ) } say @vals.join(","); } |