Challenge 1

1 files changed, 12 insertions, 0 deletions

diff --git a/challenge-227/simon-proctor/raku/ch-1.raku b/challenge-227/simon-proctor/raku/ch-1.raku
new file mode 100644
index 0000000000..4cfb804d05
--- /dev/null
+++ b/challenge-227/simon-proctor/raku/ch-1.raku
@@ -0,0 +1,12 @@
+#!/usr/bin/env raku
+
+#| Given a year between 1753 and 9999 print the number of friday the 13ths
+sub MAIN(
+    Int() $year where 1753 <= * <= 9999 #= Year between 1753 and 9999
+) {
+    (1..12)
+    .map( -> $m { Date.new($year,$m,13) } )
+    .grep( -> $d { $d.day-of-week == 5 } )
+    .elems
+    .say;
+}