Palindrome pairs: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
|||
| Line 13: | Line 13: | ||
(lls,sssll) |
(lls,sssll) |
||
<br> |
<br> |
||
| ⚫ | |||
{{draft task}} |
{{draft task}} |
||
=={{header|Perl 6}}== |
|||
<lang perl6>my @words = <abcd dcba lls s sssll>; |
|||
sub is-palindrome (Str $s) { $s eq $s.flip } |
|||
for @words.combinations(2) { |
|||
say "({.join: ','})" if .join.&is-palindrome; |
|||
say "({.reverse.join: ','})" if .reverse.join.&is-palindrome; |
|||
}</lang> |
|||
{{Out}} |
|||
<pre>(abcd,dcba) |
|||
(dcba,abcd) |
|||
(s,lls) |
|||
(lls,sssll)</pre> |
|||
| ⚫ | |||
<lang ring> |
<lang ring> |
||
# Project : Palindrome pairs |
# Project : Palindrome pairs |
||