Merge pull request #2023 from fluca1978/pwc72

Pwc72

4 files changed, 26 insertions, 0 deletions

diff --git a/challenge-072/luca-ferrari/blog-1.txt b/challenge-072/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..b9fb50ab40
--- /dev/null
+++ b/challenge-072/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2020/08/03/PerlWeeklyChallenge72.html#task1
diff --git a/challenge-072/luca-ferrari/blog-2.txt b/challenge-072/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..35219e33ad
--- /dev/null
+++ b/challenge-072/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2020/08/03/PerlWeeklyChallenge72.html#task2
diff --git a/challenge-072/luca-ferrari/raku/ch-1.p6 b/challenge-072/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..2aa3b661b4
--- /dev/null
+++ b/challenge-072/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,8 @@
+#!raku
+
+
+sub MAIN( Int $N where { 0 < $N <= 10 } ) {
+    my $factorial = [*] 1 .. $N;
+    my $zeros = $factorial ~~ / 0+ $ /;
+    "$N ! = $factorial and has { $zeros.chars } trailing zeros".say;
+}
diff --git a/challenge-072/luca-ferrari/raku/ch-2.p6 b/challenge-072/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..22aba947d4
--- /dev/null
+++ b/challenge-072/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,16 @@
+#!raku
+
+
+sub MAIN( Str $file-name,
+          Int $A where { $A > 0 },
+          Int $B where { $B >= $A } ) {
+    my $line-counter = 0;
+    for $file-name.IO.lines -> $line {
+        $line.say if ( $A <= ++$line-counter <= $B );
+    }
+
+    # array with lazy approach
+    # my @lines = $file-name.IO.lines;
+    # @lines[ $A .. $B ].join( "\n" ).say;
+
+}