Task 2 done.

1 files changed, 19 insertions, 0 deletions

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