From fb3e96d1cee930f319b787049d1130a6bf8e44d1 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 5 Oct 2025 14:23:23 +0200
Subject: solutions week 341

---
 challenge-341/wambash/raku/ch-1.raku | 23 +++++++++++++++++++++++
 challenge-341/wambash/raku/ch-2.raku | 22 ++++++++++++++++++++++
 2 files changed, 45 insertions(+)
 create mode 100644 challenge-341/wambash/raku/ch-1.raku
 create mode 100644 challenge-341/wambash/raku/ch-2.raku

diff --git a/challenge-341/wambash/raku/ch-1.raku b/challenge-341/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..c0f23228c7
--- /dev/null
+++ b/challenge-341/wambash/raku/ch-1.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+sub broken-keyboard ($str, :$keys=()) {
+    $str
+    andthen .words
+    andthen .grep: { !.contains: $keys.any,:i }\
+    andthen .elems
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is broken-keyboard('Hello World', :keys<d> ), 1;
+    is broken-keyboard('apple banana cherry', :keys<a e> ), 0;
+    is broken-keyboard('Coding is fun', :keys() ), 3;
+    is broken-keyboard('Coding is fun' ), 3;
+    is broken-keyboard('The weekly challenge',:keys<a b> ), 2;
+    is broken-keyboard('Perl and Python',:keys<p> ), 1;
+    done-testing;
+}
+
+multi MAIN (+$str, :@keys) {
+    say broken-keyboard ~$str, :@keys;
+}
diff --git a/challenge-341/wambash/raku/ch-2.raku b/challenge-341/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..fe2623a99c
--- /dev/null
+++ b/challenge-341/wambash/raku/ch-2.raku
@@ -0,0 +1,22 @@
+#!/usr/bin/env raku
+
+sub reverse-prefix (+$str, :$char) {
+    my ($prefix, $root) = $str.split: / <?after "$char"> /, 2;
+
+    $prefix.flip ~ $root
+
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is reverse-prefix('perl',:char<r>), 'repl';
+    is reverse-prefix('programming',:char<g>), 'gorpramming';
+    is reverse-prefix('hello',:char<h>), 'hello';
+    is reverse-prefix('abcdefghij',:char<h>), 'hgfedcbaij';
+    is reverse-prefix('reverse',:char<s>), 'srevere';
+    done-testing;
+}
+
+multi MAIN (+$str, :$char) {
+    say reverse-prefix $str, :$char;
+}
-- 
cgit 


From 710977fe6652dc388480f197c925acd56ce64de4 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 5 Oct 2025 14:25:35 +0200
Subject: fix nl

---
 challenge-341/wambash/raku/ch-2.raku | 1 -
 1 file changed, 1 deletion(-)

diff --git a/challenge-341/wambash/raku/ch-2.raku b/challenge-341/wambash/raku/ch-2.raku
index fe2623a99c..b143ae5185 100644
--- a/challenge-341/wambash/raku/ch-2.raku
+++ b/challenge-341/wambash/raku/ch-2.raku
@@ -4,7 +4,6 @@ sub reverse-prefix (+$str, :$char) {
     my ($prefix, $root) = $str.split: / <?after "$char"> /, 2;
 
     $prefix.flip ~ $root
-
 }
 
 multi MAIN (Bool :test($)!) {
-- 
cgit