diff options
| -rw-r--r-- | challenge-207/deadmarshal/raku/ch-1.raku | 16 |
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"]); |