Help for this page
for (10,15,20831323,99,100) { print "$_: ", nearPrime($_), "\n"; ... } ...
sub nearPrime { my $num = shift; ... $sign = -$sign; } }
BEGIN { my @primes = (2, 3); my $max = 3; ... return 1; } }
www.com | www.net | www.org
No recent polls found