32 lines
364 B
Perl
32 lines
364 B
Perl
|
#!@@@perl@@@ -w
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
sub usage {
|
||
|
|
print STDERR "Usage: $0 number\n";
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
sub fact {
|
||
|
|
my ($n) = @_;
|
||
|
|
|
||
|
|
my $d = 2;
|
||
|
|
|
||
|
|
my @f = ();
|
||
|
|
|
||
|
|
while ($d <= $n) {
|
||
|
|
if ($n % $d == 0) {
|
||
|
|
push (@f, $d);
|
||
|
|
$n /= $d;
|
||
|
|
} else {
|
||
|
|
$d++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return @f;
|
||
|
|
}
|
||
|
|
|
||
|
|
if (@ARGV != 1) { usage(); }
|
||
|
|
my @f = fact($ARGV[0]);
|
||
|
|
print "@f\n";
|
||
|
|
|
||
|
|
#vim:sw=4
|