Challenge 1

1 files changed, 14 insertions, 0 deletions

diff --git a/challenge-175/simon-proctor/raku/ch-1.raku b/challenge-175/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..a2d739dbbb
--- /dev/null
+++ b/challenge-175/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+
+#| Print a list of the last Sunday in each month
+sub MAIN(
+    Int $year = Date.today().year #= Year to give last Sunday dates for 
+) {
+    for (1..12) -> $month {
+        my $date = Date.new($year,$month,1).later( :1month).earlier(:1day);
+        while ($date.day-of-week != 7) {
+            $date.=earlier(:1day)
+        }
+        $date.say
+    }
+}