diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2025-05-19 17:13:45 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2025-05-19 17:13:45 +0800 |
| commit | 6fee2ba14176b54a3109202a1334dac2ea3b49d6 (patch) | |
| tree | 16a1011da885b003dee883e9cc477e095fbac51c | |
| parent | f46dbe5fc9ae4aaa455c80857a7b684bbd1cd4ae (diff) | |
| download | perlweeklychallenge-club-6fee2ba14176b54a3109202a1334dac2ea3b49d6.tar.gz perlweeklychallenge-club-6fee2ba14176b54a3109202a1334dac2ea3b49d6.tar.bz2 perlweeklychallenge-club-6fee2ba14176b54a3109202a1334dac2ea3b49d6.zip | |
fix
| -rwxr-xr-x | challenge-322/feng-chang/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-322/feng-chang/raku/ch-1.raku b/challenge-322/feng-chang/raku/ch-1.raku index 7d7e7d5457..4f8f275faa 100755 --- a/challenge-322/feng-chang/raku/ch-1.raku +++ b/challenge-322/feng-chang/raku/ch-1.raku @@ -2,4 +2,4 @@ unit sub MAIN(Str:D $s, UInt:D $size); -put $s.comb.grep(* ne '-').reverse.rotor($size, :partial).map(*.reverse.join).reverse.join('-'); +put $s.comb(/<-[-]>/).reverse.rotor($size, :partial).map(*.reverse.join).reverse.join('-'); |