Task 1 done.

1 files changed, 15 insertions, 0 deletions

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;
+}