10 lines
210 B
Perl
10 lines
210 B
Perl
|
use ntheory qw/factor is_prime trial_factor/;
|
||
|
|
sub issemi {
|
||
|
|
my $n = shift;
|
||
|
|
if ((my @p = trial_factor($n,500)) > 1) {
|
||
|
|
return 0 if @p > 2;
|
||
|
|
return !!is_prime($p[1]) if @p == 2;
|
||
|
|
}
|
||
|
|
2 == factor($n);
|
||
|
|
}
|