[thirdparty/openssl.git] / perl / f.pl

#!/usr/bin/perl

use ExtUtils::testlib;

use SSLeay;

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