Palindrome pairs: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Slightly better palindrome detection. Ignore, case, punctuation and white-space. Same output) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Exercise palindrome detector) |
||
Line 16: | Line 16: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>my @words = <abcd dcba lls s sssll>; |
<lang perl6>my @words = <abcd dcba lls s sssll Nod don't>; |
||
sub is-palindrome (Str $s) { $_ eq .flip given $s.lc.comb(/\w/).join } |
sub is-palindrome (Str $s) { $_ eq .flip given $s.lc.comb(/\w/).join } |
||
Line 28: | Line 28: | ||
(dcba,abcd) |
(dcba,abcd) |
||
(s,lls) |
(s,lls) |
||
(lls,sssll) |
(lls,sssll) |
||
(don't,Nod)</pre> |
|||
=={{header|Ring}}== |
=={{header|Ring}}== |