diff options
| -rw-r--r-- | challenge-288/wambash/raku/ch-1.raku | 20 |
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 +} |