From b97f01ea5f8b7ba57b389bac07fdd9310fbd3d33 Mon Sep 17 00:00:00 2001
From: deadmarshal <adeadmarshal@gmail.com>
Date: Sun, 12 Mar 2023 15:29:20 +0330
Subject: Fixed raku ch-1 solution

---
 challenge-207/deadmarshal/raku/ch-1.raku | 16 +++++++---------
 1 file 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"]);
-- 
cgit