- Added solutions by Laurent Rosenfeld.

3 files changed, 30 insertions, 0 deletions

diff --git a/challenge-279/laurent-rosenfeld/blog.txt b/challenge-279/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..69bc279ddd
--- /dev/null
+++ b/challenge-279/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+https://blogs.perl.org/users/laurent_r/2024/07/perl-weekly-challenge-279-sort-letters.html
diff --git a/challenge-279/laurent-rosenfeld/perl/ch-1.pl b/challenge-279/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..ec5112e124
--- /dev/null
+++ b/challenge-279/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,18 @@
+use strict;
+use warnings;
+use feature 'say';
+
+sub sort_letters {
+    my @letters = @{$_[0]};
+    my @indices = @{$_[1]};
+    return map $_->[0], sort { $$a[1] <=> $$b[1] }
+    map [ $letters[$_], $indices[$_] ], 0..$#letters;
+}
+
+my @tests = ( [ [< R E P L>], [<3 2 1 4>] ],
+              [ [<A U R K>], [<2 4 1 3>] ],
+              [ [<O H Y N P T>], [<5 4 2 6 1 3>] ] );
+for my $test (@tests) {
+    printf "%-14s => ", "@{$test->[0]}";
+    say sort_letters $test->[0], $test->[1];
+}
diff --git a/challenge-279/laurent-rosenfeld/raku/ch-1.raku b/challenge-279/laurent-rosenfeld/raku/ch-1.raku
new file mode 100644
index 0000000000..f767c1c042
--- /dev/null
+++ b/challenge-279/laurent-rosenfeld/raku/ch-1.raku
@@ -0,0 +1,11 @@
+sub sort-letters3 (@let, @w) {
+    join "", map { $_[0] }, sort { $_[1] }, zip @let, @w;
+}
+
+my @tests = (< R E P L>, <3 2 1 4>),
+            (<A U R K>, <2 4 1 3>),
+            (<O H Y N P T>, <5 4 2 6 1 3>);
+for @tests -> @test {
+    printf "%-14s => ", "@test[0]";
+    say sort-letters3 @test[0], @test[1];
+}