From 5ad76f91ac4058f097fe564ab1baada91cab6588 Mon Sep 17 00:00:00 2001
From: Simon Proctor <simon.proctor@zpg.co.uk>
Date: Tue, 27 Aug 2019 12:37:05 +0100
Subject: Slight tweak to acutally use the R meta operator for once

---
 challenge-023/simon-proctor/perl6/ch-1.p6 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'challenge-023')

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(",");
 }
-- 
cgit