From 156b11c445341e9d028777bb41ec506f69fec3a4 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Mon, 21 Sep 2020 15:31:34 +0200
Subject: way too long

---
 challenge-079/markus-holzer/raku/ch-2.raku | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 challenge-079/markus-holzer/raku/ch-2.raku

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
-- 
cgit