From 4968031a8c17661761edfb6d94fef6bd3169722c Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Mon, 21 Sep 2020 16:16:39 +0200
Subject: nicer

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

diff --git a/challenge-079/markus-holzer/raku/ch-2.raku b/challenge-079/markus-holzer/raku/ch-2.raku
index 864734a511..532d2505a3 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 }
+sub index-find { @N.pairs.grep( *.value >= $^h ).map: *.key }
+sub index-diff { ($^i.cache.skip >>->> $^i).map: * - 1  }
 
 say (@N.max...0)
-    .map( &index-height )
-    .map( *.rotor: 2 => -1 )
+    .map( &index-find )
     .map( &index-diff )
+    .flat
     .sum;
\ No newline at end of file
-- 
cgit