Merge pull request #1 from ash/ash-231

231 solved in Raku by ash

Author: ash

challenge-231/ash/raku/blog.txt

@@ -0,0 +1 @@
+https://andrewshitov.com/2023/08/21/a-couple-of-tasks-solved-in-raku/

challenge-231/ash/raku/ch-1.raku

@@ -0,0 +1,27 @@
+# Solution to Task 1 of the Weekly Challenge 231
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-231/#TASK1
+
+# Description:
+# https://andrewshitov.com/2023/08/21/a-couple-of-tasks-solved-in-raku/
+
+# Test run:
+# $ raku ch-1.raku 
+# (3 2)
+# -1
+# (2)
+
+
+# sub solve(@data) {
+#     @data.grep: * != (@data.min, @data.max).any
+# }
+
+# sub solve(@data) {
+#     (@data.grep: * != (@data.min, @data.max).any) || -1
+# }
+
+sub solve(@data) {
+    (@data.grep: * ∉ (@data.min, @data.max)) || -1
+}
+
+my @tests = (3, 2, 1, 4), (3, 1), (2, 1, 3);
+say solve($_) for @tests;

challenge-231/ash/raku/ch-2.raku

@@ -0,0 +1,23 @@
+# Solution to Task 2 of the Weekly Challenge 231
+# https://theweeklychallenge.org/blog/perl-weekly-challenge-231/#TASK2
+
+# Description:
+# https://andrewshitov.com/2023/08/21/a-couple-of-tasks-solved-in-raku/
+
+# Test run:
+# $ raku ch-2.raku
+# 2
+# 0
+
+
+sub is-sinior($ticket) {
+    ~($ticket ~~ / <alpha> (\d\d) /)[0] >= 75
+}
+
+my @tests = ('7868190130M7522', '5303914400F9211', '9273338290F4010'),
+            ('1313579440F2036', '2921522980M5644');
+
+
+for @tests -> @tickets {
+    say +@tickets.grep({is-sinior($_)});
+}