Merge pull request #4032 from E7-87-83/newt

Practice date and time stuff

3 files changed, 63 insertions, 0 deletions

diff --git a/challenge-019/cheok-yin-fung/README.md b/challenge-019/cheok-yin-fung/README.md
new file mode 100644
index 0000000000..743a767c7d
--- /dev/null
+++ b/challenge-019/cheok-yin-fung/README.md
@@ -0,0 +1,6 @@
+Goals:
+  
+- Java: Get familiar with the Date and Time API, 
+- Perl: Get familiar with Time::Piece (and Time::Seconds) module, especially the strftime and strptime methods
+
+attempt on 9th May, 2021
diff --git a/challenge-019/cheok-yin-fung/java/FiveWeekends.java b/challenge-019/cheok-yin-fung/java/FiveWeekends.java
new file mode 100644
index 0000000000..bea36cd458
--- /dev/null
+++ b/challenge-019/cheok-yin-fung/java/FiveWeekends.java
@@ -0,0 +1,22 @@
+// The Weekly Challenge - 019
+// Task 1 Five Weekends
+// attempt: May 09th, 2021
+// from: C.-Y. Fung
+// Usage: java FiveWeekends [year]
+import java.time.LocalDate;
+import java.time.DayOfWeek;
+import java.time.Month;
+
+public class FiveWeekends
+{
+    public static void main(String[] args) 
+    {
+        int[] months = new int[] {1, 3, 5, 7, 8, 10, 12};
+
+        for (int i = 1900; i <= 2019; i++)
+            for (int M: months)
+                if (LocalDate.of(i,M,1).getDayOfWeek() == DayOfWeek.FRIDAY)
+                    System.out.println(i+" "+ Month.of(M));
+
+    }
+}
diff --git a/challenge-019/cheok-yin-fung/perl/ch-1.pl b/challenge-019/cheok-yin-fung/perl/ch-1.pl
new file mode 100644
index 0000000000..2dd7290a3a
--- /dev/null
+++ b/challenge-019/cheok-yin-fung/perl/ch-1.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+# The Weekly Challenge - 019
+# Task 1 Five Weekends
+# Task Statement:
+#   Write a script to display months 
+#   from the year 1900 to 2019 where you find 5 weekends 
+#   i.e. 5 Friday, 5 Saturday and 5 Sunday.
+# attempt: May 09th, 2021
+# from: C.-Y. Fung
+# Java correspondence: FiveWeekends.java
+use Time::Piece;
+use strict;
+use warnings;
+
+my @months = (1, 3, 5, 7, 8, 10, 12);
+
+sub isFridayStart {
+    my $year = $_[0];
+    my $month = $_[1];
+    return
+      Time::Piece->strptime($year."-".$month."-01", "%Y-%m-%d")
+        ->day_of_week == 5;
+}
+
+for my $i (1900..2019) {
+    for my $j (@months) {
+        if (isFridayStart($i, $j)) {
+            print Time::Piece->strptime($i."-".$j."-01", "%Y-%m-%d")
+                ->strftime("%Y %B"), 
+                 "\n";
+        }
+        # printf("%4d %2d\n", $i, $j) if isFridayStart($i, $j);
+    }
+}
+