perl/f.pl


1
2
3
4
5
6
7
8
9
10
11

#!/usr/local/bin/perl

use ExtUtils::testlib;

use SSLeay;

for (7 .. 7926)
	{
	my $num = SSLeay::BN::dec2bn($_);
	print "$_ is ".($num->is_prime ? 'prime' : 'composite'), "\n";
	}