From 161dddcd4199513459cde47a5c3f72d5df4b4b61 Mon Sep 17 00:00:00 2001
From: Andrew Shitov <andy@shitov.ru>
Date: Mon, 8 Nov 2021 09:39:15 +0100
Subject: Task 1 of Challenge 138

---
 challenge-138/ash/raku/ch-1.raku | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 challenge-138/ash/raku/ch-1.raku

diff --git a/challenge-138/ash/raku/ch-1.raku b/challenge-138/ash/raku/ch-1.raku
new file mode 100644
index 0000000000..8960e78b78
--- /dev/null
+++ b/challenge-138/ash/raku/ch-1.raku
@@ -0,0 +1,8 @@
+# $ raku ch-1.raku 2021
+# 261
+# $ raku ch-1.raku 2020
+# 262
+
+sub MAIN(Int $year) {
+    say +(grep {$_.day-of-week < 6}, (Date.new($year, 1, 1) .. Date.new($year, 12, 31)))
+}
-- 
cgit