From 0d641baa00e5f20a56f474a0c02f2806cdf9317c Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 10 Jul 2023 10:20:27 +0000
Subject: Challenge 225 Solutions (Raku)

---
 challenge-225/mark-anderson/raku/ch-2.raku | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/challenge-225/mark-anderson/raku/ch-2.raku b/challenge-225/mark-anderson/raku/ch-2.raku
index 42eb41f162..f6a86c16bb 100644
--- a/challenge-225/mark-anderson/raku/ch-2.raku
+++ b/challenge-225/mark-anderson/raku/ch-2.raku
@@ -5,6 +5,11 @@ is-deeply left-right-sum-diff((10,4,8,3)),  (15,1,11,22);
 is-deeply left-right-sum-diff((1)),         (0,);
 is-deeply left-right-sum-diff((1,2,3,4,5)), (14,11,6,1,10);
 
+sub infix:<diff-abs>($a, $b) 
+{
+    abs $a - $b    
+}
+
 sub left-right-sum-diff($n)
 {
     my $list = (0, |$n, 0);
@@ -12,5 +17,5 @@ sub left-right-sum-diff($n)
     my $left  =  [\+] $list[^(*-2)];
     my $right = ([\+] $list[$list.end...2]).reverse;
 
-    ($left >>-<< $right)>>.abs 
+    $left >>diff-abs<< $right 
 }
-- 
cgit