Select Code to Download

sub next_prime_iterator {
   my $num = shift(@_);
...
       $divisor += 2;
   }
}

my $x= 1+~0;
$x *= 2 while $x != $x+1;
...
print $/
__END__
1 0 0.75; 2 0 0; 3 2 0.25; 4 2 0.75; 5 1 0;