3 files changed, 26 insertions, 0 deletions
diff --git a/challenge-282/laurent-rosenfeld/blog.txt b/challenge-282/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..6b66da5f25
--- /dev/null
+++ b/challenge-282/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+https://blogs.perl.org/users/laurent_r/2024/08/perl-weekly-challenge-282-good-integer.html
diff --git a/challenge-282/laurent-rosenfeld/perl/ch-1.pl b/challenge-282/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..97fe5a9c86
--- /dev/null
+++ b/challenge-282/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,15 @@
+use strict;
+use warnings;
+use feature 'say';
+
+sub good_integer {
+    my $in = shift;
+    return -1 if $in =~ /(\d)\1{3}/;
+    return  $1 x 3 if $in =~ /(\d)\1{2}/;
+}
+
+my @tests = (12344456, 123444456, 1233334, 10020003);
+for my $test (@tests) {
+    printf "%-10s => ", $test;
+    say good_integer $test;
+}
diff --git a/challenge-282/laurent-rosenfeld/raku/ch-1.raku b/challenge-282/laurent-rosenfeld/raku/ch-1.raku
new file mode 100644
index 0000000000..e807937dae
--- /dev/null
+++ b/challenge-282/laurent-rosenfeld/raku/ch-1.raku
@@ -0,0 +1,10 @@
+sub good-integer ($in) {
+    return -1 if $in ~~ / (\d) $0 ** 3 /;    # 4 digits
+    return  ~$/ if $in ~~ / (\d) $0 ** 2 /;  # 3 digits
+}
+
+my @tests = 12344456, 123444456, 1233334, 10020003;
+for @tests -> $test {
+    printf "%-10s => ", $test;
+    say good-integer $test;
+}