Palindrome

## 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);
    }
}