From 11fcaa1d93c1685ea2744ed875e9ae9120226a56 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Sun, 16 Aug 2020 14:16:19 +0200
Subject: Task 1 done.

---
 challenge-073/luca-ferrari/raku/ch-1.p6 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 challenge-073/luca-ferrari/raku/ch-1.p6

diff --git a/challenge-073/luca-ferrari/raku/ch-1.p6 b/challenge-073/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..35d68bbfdc
--- /dev/null
+++ b/challenge-073/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,15 @@
+#!raku
+
+
+# % raku ch-1.p6 3 1 5 0 2 9 3 7 6 4 8
+# 0,0,0,2,3,3,4,4
+sub MAIN( Int $S where { 0 < $S },
+          *@A where { @A.elems > $S } ) {
+
+    my @mins;
+    for 0 .. ( @A.elems - $S ) {
+        @mins.push: [min] @A[ $_ ..^ ( $_ + $S ) ];
+    }
+
+    @mins.join( ',' ).say;
+}
-- 
cgit