Distinct power numbers: Difference between revisions

m
→‎{{header|Perl}}: removed un-needed op
m (→‎{{header|REXX}}: used a faster method of listing the numbers in order for larger lists.)
m (→‎{{header|Perl}}: removed un-needed op)
Line 465:
use List::Util qw( uniq );
 
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}}
<pre>
2,392

edits