279 #1
123456789101112131415161718192021222324252627282930313233343536
use Test;
multi sort-letters(:@letters!, :@indexes!) {
(@indexes Z=> @@letters).sort>>.value.join
}
multi sort-letters(Str :$letters!, :@indexes!) {
sort-letters :letters($letters.comb), :@indexes
}
multi sort-letters($letters, +@indexes) {
sort-letters :$letters, :@indexes
}
for [
\(
:letters< R E P L >,
:indexes[3, 2, 1, 4],
), "PERL",
\(
:letters<A U R K>,
:indexes[2, 4, 1, 3],
),
"RAKU",
\(
:letters<O H Y N P T>,
:indexes(5, 4, 2, 6, 1, 3),
),
"PYTHON",
] -> Capture \c (:@letters, :@indexes), Str $answer {
is sort-letters(|c), $answer, c;
my \c2 = \(:letters(@letters.join), :@indexes);
is sort-letters(|c2), $answer, c2;
is @letters.&sort-letters(@indexes), $answer, "positional: { c.gist }";
is @letters.join.&sort-letters(|@indexes), $answer, "positional: { c2.gist }"
}
Raku
INFO