aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
author冯昶 <fengchang@novel-supertv.com>2024-08-27 15:02:01 +0800
committer冯昶 <fengchang@novel-supertv.com>2024-08-27 15:02:01 +0800
commit30a42138e1d8bdd2f174e06fb18515ced0b2b241 (patch)
tree46b08f472db815c5b1fe919afad5b656af0553cb
parenteee7a1cef13108a121ba9a9976783997e4824a18 (diff)
downloadperlweeklychallenge-club-30a42138e1d8bdd2f174e06fb18515ced0b2b241.tar.gz
perlweeklychallenge-club-30a42138e1d8bdd2f174e06fb18515ced0b2b241.tar.bz2
perlweeklychallenge-club-30a42138e1d8bdd2f174e06fb18515ced0b2b241.zip
fix
-rwxr-xr-xchallenge-284/feng-chang/raku/ch-2.raku6
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(',');