diff options
| author | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-07-29 01:38:38 +0100 |
|---|---|---|
| committer | Mohammad Sajid Anwar <mohammad.anwar@yahoo.com> | 2024-07-29 01:38:38 +0100 |
| commit | b2489c789db122755dbb360dbbcb7f1a81c027bf (patch) | |
| tree | 4ae23fb6f20fb126220b017e3cb911443ade420f | |
| parent | 1f203fbe78dbd0e60bab727866c40cd425711619 (diff) | |
| parent | cdee2f27e3041059589fc99167398c36605f13fc (diff) | |
| download | perlweeklychallenge-club-b2489c789db122755dbb360dbbcb7f1a81c027bf.tar.gz perlweeklychallenge-club-b2489c789db122755dbb360dbbcb7f1a81c027bf.tar.bz2 perlweeklychallenge-club-b2489c789db122755dbb360dbbcb7f1a81c027bf.zip | |
Merge remote-tracking branch 'refs/remotes/origin/master'
| -rw-r--r-- | challenge-279/mark-anderson/raku/ch-2.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-279/mark-anderson/raku/ch-2.raku b/challenge-279/mark-anderson/raku/ch-2.raku index 1251f5a5d3..c674e58a6d 100644 --- a/challenge-279/mark-anderson/raku/ch-2.raku +++ b/challenge-279/mark-anderson/raku/ch-2.raku @@ -15,7 +15,7 @@ sub split-string($str is copy) for $str.words.grep({ .contains('y') }) -> $word { - if $word.comb.contains(none(<a e i o u>)) + if $word.contains(none(<a e i o u>)) { $count += ($word ~~ m:g/y/).elems; next @@ -33,7 +33,7 @@ sub split-string($str is copy) for @syllables { next unless .contains('y'); - $count += (.comb.indices('y').grep(* > 0)).elems + $count += (.indices('y').grep(* > 0)).elems } } |