From da89e65b16be36928445f92d5443dfd6801c76f2 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Mon, 21 Sep 2020 15:46:47 +0200
Subject: somewhat clearer

---
 challenge-079/markus-holzer/raku/ch-2.raku | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/challenge-079/markus-holzer/raku/ch-2.raku b/challenge-079/markus-holzer/raku/ch-2.raku
index d64fc1a83a..864734a511 100644
--- a/challenge-079/markus-holzer/raku/ch-2.raku
+++ b/challenge-079/markus-holzer/raku/ch-2.raku
@@ -1,10 +1,10 @@
 unit sub MAIN( *@N where @N.all ~~ Int );
 
+sub index-height { @N.pairs.grep( *.value >= $^height ).map: *.key }
+sub index-diff   { $^indexes.map({ .[1] - .[0] - 1 if .elems }).sum }
+
 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
+    .map( &index-height )
+    .map( *.rotor: 2 => -1 )
+    .map( &index-diff )
+    .sum;
\ No newline at end of file
-- 
cgit