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

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

diff --git a/challenge-225/mark-anderson/raku/ch-2.raku b/challenge-225/mark-anderson/raku/ch-2.raku
index f6a86c16bb..d2a831657f 100644
--- a/challenge-225/mark-anderson/raku/ch-2.raku
+++ b/challenge-225/mark-anderson/raku/ch-2.raku
@@ -5,10 +5,7 @@ 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 infix:<|-|>($a, $b) { abs $a - $b }
 
 sub left-right-sum-diff($n)
 {
@@ -17,5 +14,5 @@ sub left-right-sum-diff($n)
     my $left  =  [\+] $list[^(*-2)];
     my $right = ([\+] $list[$list.end...2]).reverse;
 
-    $left >>diff-abs<< $right 
+    $left >>|-|<< $right 
 }
-- 
cgit