Task 1 done

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-138/luca-ferrari/raku/ch-1.p6 b/challenge-138/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..b238c21ff5
--- /dev/null
+++ b/challenge-138/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,15 @@
+#!raku
+
+sub MAIN( Int $year where { $year ~~ / \d ** 4 / } && $year > 1900,
+        Bool :$verbose = False ) {
+    my Date $date .= new: year => $year, day => 1, month => 1;
+    my Date $stop .= new: year => $year, day => 31, month => 12;
+    my $work-days = 0;
+    while ( $date <= $stop ) {
+        $work-days += 1 if $date.day-of-week != any( 6, 7 );
+        $date = $date + 1;
+    }
+
+    "$year has $work-days work days".say if $verbose;
+    $work-days.say if ! $verbose;
+}