diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2025-05-26 15:13:18 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2025-05-26 15:13:18 +0800 |
| commit | 4b203deeb581f9ab1d03afb5c77062e8da382878 (patch) | |
| tree | 39e0d532eceda2360276adefab480b61bf479d42 | |
| parent | fa13f6ae635c7827275696b3d89c9c8431509d68 (diff) | |
| download | perlweeklychallenge-club-4b203deeb581f9ab1d03afb5c77062e8da382878.tar.gz perlweeklychallenge-club-4b203deeb581f9ab1d03afb5c77062e8da382878.tar.bz2 perlweeklychallenge-club-4b203deeb581f9ab1d03afb5c77062e8da382878.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 4f8f275faa..da4f235b94 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(/<-[-]>/).reverse.rotor($size, :partial).map(*.reverse.join).reverse.join('-'); +put $s.flip.comb(/<-[-]>/).rotor($size, :partial).map(*.join).join('-').flip; |