From 5e8f04914943ac3a673d64d31ef0dfdec912a0bb Mon Sep 17 00:00:00 2001
From: Mohammad Sajid Anwar <mohammad.anwar@yahoo.com>
Date: Mon, 23 Sep 2024 16:43:04 +0100
Subject: - Added solutions by Laurent Rosenfeld. - Added solutions by Andre
 Ploger.

---
 challenge-288/laurent-rosenfeld/blog.txt       |  1 +
 challenge-288/laurent-rosenfeld/perl/ch-1.pl   | 19 +++++++++++++++++++
 challenge-288/laurent-rosenfeld/raku/ch-1.raku | 12 ++++++++++++
 3 files changed, 32 insertions(+)
 create mode 100644 challenge-288/laurent-rosenfeld/blog.txt
 create mode 100644 challenge-288/laurent-rosenfeld/perl/ch-1.pl
 create mode 100644 challenge-288/laurent-rosenfeld/raku/ch-1.raku

(limited to 'challenge-288')

diff --git a/challenge-288/laurent-rosenfeld/blog.txt b/challenge-288/laurent-rosenfeld/blog.txt
new file mode 100644
index 0000000000..e3b16725c7
--- /dev/null
+++ b/challenge-288/laurent-rosenfeld/blog.txt
@@ -0,0 +1 @@
+https://blogs.perl.org/users/laurent_r/2024/09/perl-weekly-challenge-288-closest-palindrome.html
diff --git a/challenge-288/laurent-rosenfeld/perl/ch-1.pl b/challenge-288/laurent-rosenfeld/perl/ch-1.pl
new file mode 100644
index 0000000000..d2d709a504
--- /dev/null
+++ b/challenge-288/laurent-rosenfeld/perl/ch-1.pl
@@ -0,0 +1,19 @@
+use strict;
+use warnings;
+use feature 'say';
+
+sub closest_palindrome {
+    my $in = shift;
+    my $i = 1;
+    while (1) {
+        return $in - $i if reverse($in - $i) eq $in - $i;
+        return $in + $i if reverse($in + $i) eq $in + $i;
+        $i++;
+    }
+}
+
+my @tests = (123, 2, 1400, 1001);
+for my $test (@tests) {
+    printf "%-6d => ", $test;
+    say closest_palindrome $test;
+}
diff --git a/challenge-288/laurent-rosenfeld/raku/ch-1.raku b/challenge-288/laurent-rosenfeld/raku/ch-1.raku
new file mode 100644
index 0000000000..c00c271c2a
--- /dev/null
+++ b/challenge-288/laurent-rosenfeld/raku/ch-1.raku
@@ -0,0 +1,12 @@
+sub closest-palindrome ($in) {
+    for 1..Inf -> $i {
+        return $in - $i if ($in - $i).flip eq $in - $i;
+        return $in + $i if ($in + $i).flip eq $in + $i;
+    }
+}
+
+my @tests = 123, 2, 1400, 1001;
+for @tests -> $test {
+    printf "%-6d => ", $test;
+    say closest-palindrome $test;
+}
-- 
cgit