- Added solutions by Niels van Dijke.

- Added solutions by Laurent Rosenfeld.

5 files changed, 14 insertions, 0 deletions

diff --git a/challenge-246/laurent-rosenfeld/blog.txt b/challenge-246/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..cb3a874b27
--- /dev/null
+++ b/challenge-246/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+https://blogs.perl.org/users/laurent_r/2023/12/perl-weekly-challenge-246-6-out-of-49.html
diff --git a/challenge-246/laurent-rosenfeld/perl/ch-1.pl b/challenge-246/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..347c0d34b5
--- /dev/null
+++ b/challenge-246/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use feature 'say';
+
+my %result;
+while (%result < 6) {
+    # get random integers in the range 1..49
+    my $rand = int( rand 49) + 1;
+    # discard duplicates
+    $result{$rand} = 1 unless exists $result{$rand};
+}
+say join " ", keys %result;
diff --git a/challenge-246/laurent-rosenfeld/raku/ch-1.raku b/challenge-246/laurent-rosenfeld/raku/ch-1.raku
new file mode 100644
index 0000000000..ab237a21b3
--- /dev/null
+++ b/challenge-246/laurent-rosenfeld/raku/ch-1.raku
@@ -0,0 +1 @@
+say (1..49).pick: 6;
diff --git a/challenge-246/perlboy1967/perl/ch1.pl b/challenge-246/perlboy1967/perl/ch-1.pl
index c1fdf6ca2b..c1fdf6ca2b 100755
--- a/challenge-246/perlboy1967/perl/ch1.pl
+++ b/challenge-246/perlboy1967/perl/ch-1.pl
diff --git a/challenge-246/perlboy1967/perl/ch2.pl b/challenge-246/perlboy1967/perl/ch-2.pl
index 9d2000f6a6..9d2000f6a6 100755
--- a/challenge-246/perlboy1967/perl/ch2.pl
+++ b/challenge-246/perlboy1967/perl/ch-2.pl