Palindrome
12345678910111213141516171819
## is_palindrome.p6
sub is-palindrome(Str $sent) returns Bool
{
my Str $s = $sent.lc.trans(["a".."z", 0..9] => "", :complement);
return $s ~~ join "", reverse split "", $s;
}
sub MAIN {
my @test = ["Ah, Satan sees Natasha!",
"Are Mac 'n' Oliver always eveil on camera?",
"Perl 6"];
for @test -> $s {
say $s, " is a palindrome: ", is-palindrome($s);
}
}
Raku
INFO