From 03593725948f4adc106777b47d963d4e4f4b31d8 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 13 Nov 2023 07:54:40 +0000
Subject: Challenge 243 Solutions (Raku)

---
 challenge-243/mark-anderson/raku/ch-1.raku | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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)
 }
-- 
cgit