From f1d4e078f2310bea4439015c4dfe7da5909dd9fe Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 15 Feb 2021 09:36:12 +0100
Subject: Task 1 done

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

diff --git a/challenge-100/luca-ferrari/raku/ch-1.p6 b/challenge-100/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..dedf5ffcbe
--- /dev/null
+++ b/challenge-100/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,18 @@
+#!raku
+
+
+sub MAIN( Str $when, Str $phase? = '' ) {
+    if $when ~ $phase ~~ / $<hour>=\d+ ':' $<minute>=\d+ $<phase>=( 'am'|'pm' )? / {
+        my $hour = $<hour>.Int;
+        my $am   = "%s".sprintf( $<phase> && $<phase>.Str ?? $<phase>.Str.lc !! '' );
+
+        given $am {
+            when 'am' { $hour += $hour > 12 ?? -12 !! 0; $am = ''; }
+            when 'pm' { $hour += $hour < 12 ??  12 !! 0; $am = ''; }
+            default   { $am = $hour < 13 ?? 'am' !! 'pm';
+                        $hour += $hour < 13 ?? 0   !! -12; }
+        }
+
+        say "%02d:%02d %s".sprintf( $hour , $<minute>, $am ).trim;
+    }
+}
-- 
cgit 


From 530e373c640d068051f4ec57bca98b4030f0af0f Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 15 Feb 2021 09:47:06 +0100
Subject: Task 2 done

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

diff --git a/challenge-100/luca-ferrari/raku/ch-2.p6 b/challenge-100/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..824b058e50
--- /dev/null
+++ b/challenge-100/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,8 @@
+#!raku
+
+sub MAIN() {
+    my @triangle = [ [1], [2,4], [6,4,9], [5,1,7,2] ];
+#    @triangle = [ [3], [3,1], [5,2,3], [4,3,1,3] ];
+    my $sum += .min for @triangle;
+    say $sum;
+}
-- 
cgit 


From 5ea7836872862df13a2698f2578d2ec064e3d18b Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 15 Feb 2021 17:38:40 +0100
Subject: Blog references

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

diff --git a/challenge-100/luca-ferrari/blog-1.txt b/challenge-100/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..7eff243022
--- /dev/null
+++ b/challenge-100/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/02/15/PerlWeeklyChallenge100.html#task1
diff --git a/challenge-100/luca-ferrari/blog-2.txt b/challenge-100/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..b42c970435
--- /dev/null
+++ b/challenge-100/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/02/15/PerlWeeklyChallenge100.html#task2
-- 
cgit