perl/f.pl

   1 #!/usr/local/bin/perl
   2
   3 use ExtUtils::testlib;
   4
   5 use SSLeay;
   6
   7 for (7 .. 7926)
   8         {
   9         my $num = SSLeay::BN::dec2bn($_);
  10         print "$_ is ".($num->is_prime ? 'prime' : 'composite'), "\n";
  11         }