From ba849035f93c297165a8a8bbffd531786840eb5f Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 30 Jul 2023 11:37:50 +0200
Subject: solution week 227-1

---
 challenge-227/wambash/raku/ch-1.raku | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 challenge-227/wambash/raku/ch-1.raku

diff --git a/challenge-227/wambash/raku/ch-1.raku b/challenge-227/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..eeda37376a
--- /dev/null
+++ b/challenge-227/wambash/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub friday-thirteenth ($year) {
+    Date.new: :$year, :13day
+    andthen $_, *.later(:1month)  ...^ .later(:1year)
+    andthen .grep: *.day-of-week == 5
+    andthen .elems
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is friday-thirteenth(2023), 2;
+    done-testing;
+}
+
+multi MAIN ($year) {
+    say friday-thirteenth $year
+}
-- 
cgit