diff options
| -rw-r--r-- | challenge-225/mark-anderson/raku/ch-2.raku | 7 |
1 files 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 } |