Eertree: Difference between revisions
added Perl 6
(added Perl 6) |
|||
Line 796:
<pre>
("ee", "e", "r", "t", "rtr", "ertre", "eertree")
</pre>
=={{header|Perl 6}}==
{{trans|Ring}}
<lang perl6>#!/usr/bin/env perl6
use v6;
my $str = "eertree";
my @pal = ();
my ($strrev,$strpal);
for (1 .. $str.chars) -> $n {
for (1 .. $str.chars) -> $m {
$strrev = "";
$strpal = $str.substr($n-1, $m);
if ($strpal ne "") {
for ($strpal.chars ... 1) -> $p {
$strrev ~= $strpal.substr($p-1,1);
}
($strpal eq $strrev) and @pal.push($strpal);
}
}
}
say @pal.unique;
</lang>
{{out}}
<pre>
(e ee eertree ertre r rtr t)
</pre>
|