diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-07-10 13:45:41 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-07-10 13:45:41 +0000 |
| commit | ef95427490fc6f52da98cb1dbabc31e844619523 (patch) | |
| tree | 9930b7df8fc9e78b7efd4cc86d350d68cae2d6a1 | |
| parent | 0d641baa00e5f20a56f474a0c02f2806cdf9317c (diff) | |
| download | perlweeklychallenge-club-ef95427490fc6f52da98cb1dbabc31e844619523.tar.gz perlweeklychallenge-club-ef95427490fc6f52da98cb1dbabc31e844619523.tar.bz2 perlweeklychallenge-club-ef95427490fc6f52da98cb1dbabc31e844619523.zip | |
Challenge 225 Solutions (Raku)
| -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 } |