diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2023-07-16 16:26:20 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-07-16 16:26:20 +0100 |
| commit | df91349f6fc8018e2f46973fb71deff830d82f05 (patch) | |
| tree | 4d6c94380ea8037ba2fd38cdca33c8744a680583 | |
| parent | 3d797e43598da51488dd36f583f2f937472aa40d (diff) | |
| parent | 8c312299fcc60a9bdc1d4868f6fa72d67b5f9353 (diff) | |
| download | perlweeklychallenge-club-df91349f6fc8018e2f46973fb71deff830d82f05.tar.gz perlweeklychallenge-club-df91349f6fc8018e2f46973fb71deff830d82f05.tar.bz2 perlweeklychallenge-club-df91349f6fc8018e2f46973fb71deff830d82f05.zip | |
Merge pull request #8384 from andemark/challenge-225-Raku
Challenge 225 Solutions (Raku)
| -rw-r--r-- | challenge-225/mark-anderson/raku/ch-2.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-225/mark-anderson/raku/ch-2.raku b/challenge-225/mark-anderson/raku/ch-2.raku index d2a831657f..f14d083056 100644 --- a/challenge-225/mark-anderson/raku/ch-2.raku +++ b/challenge-225/mark-anderson/raku/ch-2.raku @@ -11,8 +11,8 @@ sub left-right-sum-diff($n) { my $list = (0, |$n, 0); - my $left = [\+] $list[^(*-2)]; - my $right = ([\+] $list[$list.end...2]).reverse; + my $left = [\+] $list[^(*-2)]; + my $right = ([\R+] $list[2..*]).reverse; $left >>|-|<< $right } |