diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-03-13 08:05:44 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-03-13 08:05:44 +0000 |
| commit | f11428be4c3cb93df2041f02b4590b5a8265d664 (patch) | |
| tree | 5811afcf6f466c9f1d31c6d6a00846ab4c73d9b9 | |
| parent | 5abc73bb9282dd090897e0c9dbdd1003b275c817 (diff) | |
| parent | f03f41fc92c57f5d8e548b4ee32a31b78082b332 (diff) | |
| download | perlweeklychallenge-club-f11428be4c3cb93df2041f02b4590b5a8265d664.tar.gz perlweeklychallenge-club-f11428be4c3cb93df2041f02b4590b5a8265d664.tar.bz2 perlweeklychallenge-club-f11428be4c3cb93df2041f02b4590b5a8265d664.zip | |
Merge pull request #7714 from deadmarshal/TWC207
Twc207
| -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..e6f911b917 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 ($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"]); |