- Added solutions by Laurent Rosenfeld.

- Added solutions by Thomas Kohler.
- Added solutions by Peter Meszaros.
- Added solutions by Conor Hoekstra.
- Added solutions by Torgny Lyon.
- Added solutions by Paulo Custodio.

5 files changed, 14 insertions, 0 deletions

diff --git a/challenge-286/conor-hoekstra/ch-1.bqn b/challenge-286/conor-hoekstra/bqn/ch-1.bqn
index e4b86c7de8..e4b86c7de8 100644
--- a/challenge-286/conor-hoekstra/ch-1.bqn
+++ b/challenge-286/conor-hoekstra/bqn/ch-1.bqn
diff --git a/challenge-286/conor-hoekstra/ch-2.bqn b/challenge-286/conor-hoekstra/bqn/ch-2.bqn
index d572e07af0..d572e07af0 100644
--- a/challenge-286/conor-hoekstra/ch-2.bqn
+++ b/challenge-286/conor-hoekstra/bqn/ch-2.bqn
diff --git a/challenge-286/laurent-rosenfeld/blog.txt b/challenge-286/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..cf13d7e21b
--- /dev/null
+++ b/challenge-286/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+https://blogs.perl.org/users/laurent_r/2024/09/perl-weekly-challenge-286-self-spammer.html
diff --git a/challenge-286/laurent-rosenfeld/perl/ch-1.pl b/challenge-286/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..7cf1875a50
--- /dev/null
+++ b/challenge-286/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use feature 'say';
+
+my @words;
+open my $FH, '<', __FILE__ or die "Error opening file";
+while (<$FH>) {
+    s/^\s+//g;    # remove leading spaces from $_ if any
+    push @words, split /\s+/, $_;
+}
+close $FH;
+say $words[int(rand($#words + 1))];
diff --git a/challenge-286/laurent-rosenfeld/raku/ch-1.raku b/challenge-286/laurent-rosenfeld/raku/ch-1.raku
new file mode 100644
index 0000000000..bc04112f45
--- /dev/null
+++ b/challenge-286/laurent-rosenfeld/raku/ch-1.raku
@@ -0,0 +1 @@
+say $?FILE.IO.words.pick;