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 


From a1c9fa1329450cdabc2690be06b9332ad310f2e7 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Sun, 16 Aug 2020 14:22:21 +0200
Subject: Task 2 done.

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

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


From 7e7d954add7eba5de6ce18bda799809ead52d8d0 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Sun, 16 Aug 2020 14:41:32 +0200
Subject: Blog references

---
 challenge-073/luca-ferrari/blog-1.txt | 1 +
 challenge-073/luca-ferrari/blog-2.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-073/luca-ferrari/blog-1.txt
 create mode 100644 challenge-073/luca-ferrari/blog-2.txt

diff --git a/challenge-073/luca-ferrari/blog-1.txt b/challenge-073/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..7847da2989
--- /dev/null
+++ b/challenge-073/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2020/08/16/PerlWeeklyChallenge73.html#task1
diff --git a/challenge-073/luca-ferrari/blog-2.txt b/challenge-073/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..8d7d36cee2
--- /dev/null
+++ b/challenge-073/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2020/08/16/PerlWeeklyChallenge73.html#task2
-- 
cgit