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