Data commit

Task/Semiprime/Perl/semiprime-1.pl

@@ -0,0 +1,4 @@
+use ntheory "is_semiprime";
+for ([1..100], [1675..1681], [2,4,99,100,1679,5030,32768,1234567,9876543,900660121]) {
+  print join(" ",grep { is_semiprime($_) } @$_),"\n";
+}

Task/Semiprime/Perl/semiprime-2.pl

@@ -0,0 +1,2 @@
+use ntheory "factor";
+print join(" ", grep { scalar factor($_) == 2 } 1..100),"\n";

Task/Semiprime/Perl/semiprime-3.pl

@@ -0,0 +1,9 @@
+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);
+}