From d7ff198a67fcfab4198c726bd418b84d48f721b4 Mon Sep 17 00:00:00 2001
From: "Markus \"Holli\" Holzer" <holli.holzer@gmail.com>
Date: Mon, 14 Sep 2020 23:22:50 +0200
Subject: initial

---
 challenge-078/markus-holzer/raku/ch-1.raku | 10 ++++++++++
 challenge-078/markus-holzer/raku/ch-2.raku |  3 +++
 2 files changed, 13 insertions(+)
 create mode 100644 challenge-078/markus-holzer/raku/ch-1.raku
 create mode 100644 challenge-078/markus-holzer/raku/ch-2.raku

diff --git a/challenge-078/markus-holzer/raku/ch-1.raku b/challenge-078/markus-holzer/raku/ch-1.raku
new file mode 100644
index 0000000000..63b575edc1
--- /dev/null
+++ b/challenge-078/markus-holzer/raku/ch-1.raku
@@ -0,0 +1,10 @@
+unit sub MAIN( *@A where @A.all ~~ Int );
+
+say @A.&leader-elements.join: ", ";
+
+multi leader-elements( @A ) {
+    (^@A)
+        .grep( -> $i { @A[ $i ] > @A[ $i^..* ].all } )
+        .map(  -> $i { @A[ $i ]                    } ) }
+
+multi leader-elements( @A where +@A == 0 ) { 0 }
\ No newline at end of file
diff --git a/challenge-078/markus-holzer/raku/ch-2.raku b/challenge-078/markus-holzer/raku/ch-2.raku
new file mode 100644
index 0000000000..7cd2766beb
--- /dev/null
+++ b/challenge-078/markus-holzer/raku/ch-2.raku
@@ -0,0 +1,3 @@
+my @A = 10, 20, 30, 40, 50;
+my @B = 3, 4;
+dd @A.rotate($_) for @B;
\ No newline at end of file
-- 
cgit