diff options
| author | Jan Krňávek <Jan.Krnavek@gmail.com> | 2025-07-13 13:28:12 +0200 |
|---|---|---|
| committer | Jan Krňávek <Jan.Krnavek@gmail.com> | 2025-07-13 13:28:12 +0200 |
| commit | 8b465f0ff14c66daa8805aa774805cf7402f0fec (patch) | |
| tree | b91d59f497b4d4522baf7ecd0c3474bad4a7e1ab | |
| parent | e2eb93aca73fa4fdf0ae970e1049ee7285b4e324 (diff) | |
| download | perlweeklychallenge-club-8b465f0ff14c66daa8805aa774805cf7402f0fec.tar.gz perlweeklychallenge-club-8b465f0ff14c66daa8805aa774805cf7402f0fec.tar.bz2 perlweeklychallenge-club-8b465f0ff14c66daa8805aa774805cf7402f0fec.zip | |
debug comment removed
| -rw-r--r-- | challenge-329/wambash/raku/ch-2.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-329/wambash/raku/ch-2.raku b/challenge-329/wambash/raku/ch-2.raku index a910e9bca3..b6f3967ae5 100644 --- a/challenge-329/wambash/raku/ch-2.raku +++ b/challenge-329/wambash/raku/ch-2.raku @@ -6,7 +6,7 @@ sub nice-string ($str) { andthen .comb(/<:Lu>/)».lc ∩ .comb(/<:Ll>/) andthen .keys ); - #note @nice; + $str andthen .comb: rx:i/<@nice>+/ andthen .elems <= 1 ?? |$_ // '' !! .map: &nice-string |