diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2024-08-27 15:02:01 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2024-08-27 15:02:01 +0800 |
| commit | 30a42138e1d8bdd2f174e06fb18515ced0b2b241 (patch) | |
| tree | 46b08f472db815c5b1fe919afad5b656af0553cb | |
| parent | eee7a1cef13108a121ba9a9976783997e4824a18 (diff) | |
| download | perlweeklychallenge-club-30a42138e1d8bdd2f174e06fb18515ced0b2b241.tar.gz perlweeklychallenge-club-30a42138e1d8bdd2f174e06fb18515ced0b2b241.tar.bz2 perlweeklychallenge-club-30a42138e1d8bdd2f174e06fb18515ced0b2b241.zip | |
fix
| -rwxr-xr-x | challenge-284/feng-chang/raku/ch-2.raku | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/challenge-284/feng-chang/raku/ch-2.raku b/challenge-284/feng-chang/raku/ch-2.raku index 25a4be73c5..aa6f179bf5 100755 --- a/challenge-284/feng-chang/raku/ch-2.raku +++ b/challenge-284/feng-chang/raku/ch-2.raku @@ -3,12 +3,10 @@ unit sub MAIN(Str:D $L1, Str:D $L2); my %pos = $L2.comb(/\d+/).map({ $_ => $++ }); - my (@list3, @list4); for $L1.comb(/\d+/) -> $n { - %pos{$n}.defined ?? - @list3[%pos{$n}].push($n) !! - @list4.push($n); + with %pos{$n} { @list3[$_].push($n); } + else { @list4.push($n); } } put (|@list3[*;*], |@list4.sort).join(','); |
