Distinct power numbers: Difference between revisions

=={{header|Perl}}==

<lang perl>#!/usr/bin/perl -l

use strict; # https://rosettacode.org/wiki/Distinct_power_numbers

use warnings;

use List::Util qw( uniq );

print join ', ', sort { $a <=> $b } +uniq map {

my $e = $_; map $_ ** $e, 2 .. 5} 2 .. 5;</lang>

{{out}}

<pre>

4, 8, 9, 16, 25, 27, 32, 64, 81, 125, 243, 256, 625, 1024, 3125

</pre>