diff options
| author | Mark Anderson <mark@andemark.io> | 2025-10-27 06:01:15 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2025-10-27 06:01:15 +0000 |
| commit | 3f58236c298fe8864fca80aa24481746feeae7aa (patch) | |
| tree | dfe8a04cb51806cc4505aa9c00c990a1c736faa3 | |
| parent | b6540fee7037ce9c30bc283e7a2a639e363ee5d4 (diff) | |
| download | perlweeklychallenge-club-3f58236c298fe8864fca80aa24481746feeae7aa.tar.gz perlweeklychallenge-club-3f58236c298fe8864fca80aa24481746feeae7aa.tar.bz2 perlweeklychallenge-club-3f58236c298fe8864fca80aa24481746feeae7aa.zip | |
Challenge 345 Solutions (Raku)
| -rw-r--r-- | challenge-345/mark-anderson/raku/ch-1.raku | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/challenge-345/mark-anderson/raku/ch-1.raku b/challenge-345/mark-anderson/raku/ch-1.raku index 8fba9f428c..cd553461a8 100644 --- a/challenge-345/mark-anderson/raku/ch-1.raku +++ b/challenge-345/mark-anderson/raku/ch-1.raku @@ -25,8 +25,7 @@ sub peak-positions-alternate(@ints) { my @histogram; - @ints.kv.map(-> $k,$v { @histogram[$k] = flat 'x' xx $v, - ' ' xx @ints.max - $v }); + @ints.kv.map(-> $k,$v { @histogram[$k] = flat 'x' xx $v, ' ' xx @ints.max - $v }); @histogram = [Z] @histogram; @histogram .= map(*.Array); |