Challenge 243 Solutions (Raku)

1 files changed, 7 insertions, 1 deletions

diff --git a/challenge-243/mark-anderson/raku/ch-1.raku b/challenge-243/mark-anderson/raku/ch-1.raku
index 7f6bd0bee2..a944777d1e 100644
--- a/challenge-243/mark-anderson/raku/ch-1.raku
+++ b/challenge-243/mark-anderson/raku/ch-1.raku
@@ -1,10 +1,16 @@
 #!/usr/bin/env raku
 use Test;
+use experimental :cached;
 
 is reverse-pairs(1,3,2,3,1), 2;
 is reverse-pairs(2,4,3,5,1), 3;
 
 sub reverse-pairs(*@a)
 {
-    + grep { .[0] > .[1] * 2 }, @a.combinations(2)
+    sub rp($p) is cached
+    {
+        .[0] > .[1] * 2 given |$p
+    }
+    
+    + @a.combinations(2).grep(&rp)
 }