Anonymous user
Distinct power numbers: Difference between revisions
→{{header|Python}}
Not a robot (talk | contribs) (Add C++) |
|||
Line 304:
{{out}}
<pre>4 8 9 16 25 27 32 64 81 125 243 256 625 1024 3125</pre>
=={{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>
=={{header|Python}}==
| |||