diff options
| author | Mark Anderson <mark@andemark.io> | 2024-07-29 00:13:46 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2024-07-29 00:13:46 +0000 |
| commit | db3e5c8232e72ebd33336e0df52d8a15612993f7 (patch) | |
| tree | d2167aae0ad978a3f42c604123fd4f51280b416d | |
| parent | 9b1b7a71043c6d6cbc702bd75fbb78e16509a698 (diff) | |
| download | perlweeklychallenge-club-db3e5c8232e72ebd33336e0df52d8a15612993f7.tar.gz perlweeklychallenge-club-db3e5c8232e72ebd33336e0df52d8a15612993f7.tar.bz2 perlweeklychallenge-club-db3e5c8232e72ebd33336e0df52d8a15612993f7.zip | |
Removed useless combs. Thanks, Bruce! 😊
| -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 } } |