diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-12-11 17:47:51 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-12-11 17:47:51 +0000 |
| commit | 67a59fdf604bb28051b33d511dc16480ccc78dcf (patch) | |
| tree | 0602a302d29519809004a1e62acce8afd2282ea7 | |
| parent | 398e360b3fd50dee5af3fc5876ad45ffade5326f (diff) | |
| download | perlweeklychallenge-club-67a59fdf604bb28051b33d511dc16480ccc78dcf.tar.gz perlweeklychallenge-club-67a59fdf604bb28051b33d511dc16480ccc78dcf.tar.bz2 perlweeklychallenge-club-67a59fdf604bb28051b33d511dc16480ccc78dcf.zip | |
bug fix and tidied up
| -rw-r--r-- | challenge-194/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/challenge-194/mark-anderson/raku/ch-2.raku b/challenge-194/mark-anderson/raku/ch-2.raku index 33817c808f..4977a7c492 100644 --- a/challenge-194/mark-anderson/raku/ch-2.raku +++ b/challenge-194/mark-anderson/raku/ch-2.raku @@ -16,13 +16,13 @@ sub freq-equalizer($_) if $bag.minpairs == 1 { - $bag{ $bag.antipairs.min.value }--; + $bag{ $bag.antipairs.min.value }-- } else { - $bag{ $bag.antipairs.max.value }--; + $bag{ $bag.antipairs.max.value }-- } - [==] $bag.values; + [==] $bag.values } |