Distinct power numbers: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: used a faster method of listing the numbers in order for larger lists.) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: removed un-needed op) |
||
Line 465: | Line 465: | ||
use List::Util qw( uniq ); |
use List::Util qw( uniq ); |
||
print join ', ', sort { $a <=> $b } |
print join ', ', sort { $a <=> $b } uniq map { my $e = $_; map $_ ** $e, 2 .. 5} 2 .. 5;</lang> |
||
my $e = $_; map $_ ** $e, 2 .. 5} 2 .. 5;</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |