- Added solutions by Mariano Ortega.

- Added solutions by Laurent Rosenfeld.
- Added solutions by E. Choroba.
- Added solutions by Jan Krnavek.

3 files changed, 32 insertions, 0 deletions

diff --git a/challenge-281/laurent-rosenfeld/blog.txt b/challenge-281/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..ff1dfbd91a
--- /dev/null
+++ b/challenge-281/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+https://blogs.perl.org/users/laurent_r/2024/08/perl-weekly-challenge-281-check-color.html
diff --git a/challenge-281/laurent-rosenfeld/perl/ch-1.pl b/challenge-281/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..7e82b7fa65
--- /dev/null
+++ b/challenge-281/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,16 @@
+use strict;
+use warnings;
+use feature 'say';
+
+sub check_color {
+    my ($abscissa, $ordinate) = split //, shift;
+    my $code = 1;
+    $code = 0 if $abscissa =~ /[aceg]/;
+    return "True" if ($code + $ordinate) % 2 == 0;
+    return "False";
+}
+
+for my $coordinates (qw<a1 d3 g5 e6 h8>) {
+    printf "%-2s => ", $coordinates;
+    say check_color $coordinates;
+}
diff --git a/challenge-281/laurent-rosenfeld/raku/ch-1.raku b/challenge-281/laurent-rosenfeld/raku/ch-1.raku
new file mode 100644
index 0000000000..8bb4e7be27
--- /dev/null
+++ b/challenge-281/laurent-rosenfeld/raku/ch-1.raku
@@ -0,0 +1,15 @@
+sub check-color ($in) {
+    my ($abscissa, $ordinate) = $in.comb;`
+    my $code;
+    given $abscissa {
+        when /<[aceg]>/ {$code = 0}
+        when /<[bdfh]>/ {$code = 1}
+    }
+    return True if ($code + $ordinate) %% 2;
+    False;
+}
+
+for <a1 d3 g5 e6 h8> -> $coordinates {
+    printf "%-2s => ", $coordinates;
+    say check-color $coordinates;
+}