solution week 288-1

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-288/wambash/raku/ch-1.raku b/challenge-288/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..1ae1b96da3
--- /dev/null
+++ b/challenge-288/wambash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+sub closest-palindrome (Int() $str) {
+    $str, $str, -> $p, $n {slip $p.pred, $n.succ} ... *
+    andthen .skip: 2
+    andthen .first: { $_ == .flip}
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is closest-palindrome('123'), '121';
+    is closest-palindrome('2'), '1';
+    is closest-palindrome('1400'), '1441';
+    is closest-palindrome('1001'), '999';
+    done-testing;
+}
+
+multi MAIN ($str) {
+    say closest-palindrome $str
+}