diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-11-13 18:52:46 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-11-13 18:52:46 +0000 |
| commit | 2df4e900d634718b16c17ae56ce27e7ec7eb070a (patch) | |
| tree | 2dd5e932e5bc54058d2e17d6992f77bde837852a | |
| parent | 76b2999cd7b5c5aedb43cfce528fb1ec0e914213 (diff) | |
| download | perlweeklychallenge-club-2df4e900d634718b16c17ae56ce27e7ec7eb070a.tar.gz perlweeklychallenge-club-2df4e900d634718b16c17ae56ce27e7ec7eb070a.tar.bz2 perlweeklychallenge-club-2df4e900d634718b16c17ae56ce27e7ec7eb070a.zip | |
ch-1.raku improved
| -rw-r--r-- | challenge-243/mark-anderson/raku/ch-1.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-243/mark-anderson/raku/ch-1.raku b/challenge-243/mark-anderson/raku/ch-1.raku index 06314407da..d150879507 100644 --- a/challenge-243/mark-anderson/raku/ch-1.raku +++ b/challenge-243/mark-anderson/raku/ch-1.raku @@ -11,13 +11,13 @@ sub reverse-pairs(*@a) { my $bag = @a.BagHash; - sum gather for @a -> $n + sum gather for @a -> $a { - $bag{$n}--; + $bag{$a}--; for $bag.keys -> $k { - take $bag{$k} if $n > $k + $k + take $bag{$k} if $a > $k + $k } } } |