diff options
| -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 |