From 3171a803d9cbfce87cb750a69fc2dba73388f377 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 14 May 2023 22:48:44 +0200
Subject: solution week 216-1

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

diff --git a/challenge-216/wambash/raku/ch-1.raku b/challenge-216/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..62bd70ec8a
--- /dev/null
+++ b/challenge-216/wambash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+use v6.e.*;
+
+sub registration-number (+@words, :$reg!) {
+    my &letters = *.lc.comb(/<:alpha>/).Bag;
+    my Bag $reg-letters = letters $reg;
+    @words.grep:  $reg-letters ⊆ *.&letters
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is registration-number(<abc abcd bcd>, :reg('AB1 2CD')), ('abcd',);
+    is registration-number(<job james bjorg>, :reg('007 JB')), ('job', 'bjorg');
+    is registration-number(<crack road rac>, :reg('C7 RA2')), ('crack', 'rac');
+    done-testing;
+}
+
+multi MAIN (*@words,:$reg!) {
+    say registration-number @words, :$reg
+}
-- 
cgit