diff options
| author | deadmarshal <adeadmarshal@gmail.com> | 2023-03-12 15:31:40 +0330 |
|---|---|---|
| committer | deadmarshal <adeadmarshal@gmail.com> | 2023-03-12 15:31:40 +0330 |
| commit | ec8a291e57738084a11dd4870e651e462eab41f5 (patch) | |
| tree | a0f68bebdf158556d81dcfc7535d4872ffbd8837 | |
| parent | b97f01ea5f8b7ba57b389bac07fdd9310fbd3d33 (diff) | |
| download | perlweeklychallenge-club-ec8a291e57738084a11dd4870e651e462eab41f5.tar.gz perlweeklychallenge-club-ec8a291e57738084a11dd4870e651e462eab41f5.tar.bz2 perlweeklychallenge-club-ec8a291e57738084a11dd4870e651e462eab41f5.zip | |
fixed raku ch-1 solution
| -rw-r--r-- | challenge-207/deadmarshal/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-207/deadmarshal/raku/ch-1.raku b/challenge-207/deadmarshal/raku/ch-1.raku index 76907aeeaf..e6f911b917 100644 --- a/challenge-207/deadmarshal/raku/ch-1.raku +++ b/challenge-207/deadmarshal/raku/ch-1.raku @@ -9,7 +9,7 @@ sub keyboard-word(@arr) @arr = @arr>>.lc; for @arr -> $word { for $s1,$s2,$s3 -> $set { - if (all $word.comb ⊆ $set) { + if ($word.comb ⊆ $set) { @ret.push($word); } } |