diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-21 15:31:34 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-21 15:31:34 +0200 |
| commit | 156b11c445341e9d028777bb41ec506f69fec3a4 (patch) | |
| tree | 8508651a3a80617cc6340db5c103f7b0b9bde70d | |
| parent | 646831c810b88ebca1ae9100232da81ad1e3fe2c (diff) | |
| download | perlweeklychallenge-club-156b11c445341e9d028777bb41ec506f69fec3a4.tar.gz perlweeklychallenge-club-156b11c445341e9d028777bb41ec506f69fec3a4.tar.bz2 perlweeklychallenge-club-156b11c445341e9d028777bb41ec506f69fec3a4.zip | |
way too long
| -rw-r--r-- | challenge-079/markus-holzer/raku/ch-2.raku | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-079/markus-holzer/raku/ch-2.raku b/challenge-079/markus-holzer/raku/ch-2.raku new file mode 100644 index 0000000000..d64fc1a83a --- /dev/null +++ b/challenge-079/markus-holzer/raku/ch-2.raku @@ -0,0 +1,10 @@ +unit sub MAIN( *@N where @N.all ~~ Int ); + +say (@N.max...0) + .map( -> $height { + @N.pairs.grep( *.value >= $height ).map: *.key }) + .map( -> $indexes { + $indexes.rotor(2 => -1) }) + .map( -> $index-pairs { + $index-pairs.map({ .[1] - .[0] - 1 if .elems }).sum }) + .sum;
\ No newline at end of file |