Fixed raku ch-1 solution

1 files changed, 7 insertions, 9 deletions

diff --git a/challenge-207/deadmarshal/raku/ch-1.raku b/challenge-207/deadmarshal/raku/ch-1.raku
index e0a42c599b..76907aeeaf 100644
--- a/challenge-207/deadmarshal/raku/ch-1.raku
+++ b/challenge-207/deadmarshal/raku/ch-1.raku
@@ -6,18 +6,16 @@ sub keyboard-word(@arr)
   my $s2 = set <a s d f g h j k l>;
   my $s3 = set <z x c v b n m>;
   my @ret;
-  @arr = @arr.lc;
-  for @arr -> $str {
-    my @chars = $str.comb;
-    for ($s1,$s2,$s3) -> $set {
-      if (so $set{$_} == @chars.all) {
-	@ret.push: $str;
+  @arr = @arr>>.lc;
+  for @arr -> $word {
+    for $s1,$s2,$s3 -> $set {
+      if (all $word.comb ⊆ $set) {
+	@ret.push($word);
       }
     }
   }
   @ret;
 }
 
-say keyboard-word(["Hello","Alaska","Dad","Peace"]);
-say keyboard-word(["OMG","Bye"]);
-
+say keyboard-word(["Hello", "Alaska", "Dad", "Peace"]);
+say keyboard-word(["OMG", "Bye"]);