9 lines
168 B
Perl
9 lines
168 B
Perl
sub prime_factors {
|
|
my ($n, $d, @out) = (shift, 1);
|
|
while ($n > 1 && $d++) {
|
|
$n /= $d, push @out, $d until $n % $d;
|
|
}
|
|
@out
|
|
}
|
|
|
|
print "@{[prime_factors(1001)]}\n";
|