diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-07-10 10:20:27 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-07-10 10:20:27 +0000 |
| commit | 0d641baa00e5f20a56f474a0c02f2806cdf9317c (patch) | |
| tree | 485c2863324e6d52d878a84bf7629e1ee163a0ec | |
| parent | 40a12d1d83d5c7a31f99d785214d7ce8e2318959 (diff) | |
| download | perlweeklychallenge-club-0d641baa00e5f20a56f474a0c02f2806cdf9317c.tar.gz perlweeklychallenge-club-0d641baa00e5f20a56f474a0c02f2806cdf9317c.tar.bz2 perlweeklychallenge-club-0d641baa00e5f20a56f474a0c02f2806cdf9317c.zip | |
Challenge 225 Solutions (Raku)
| -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 } |