Then $r never gets bigger than $prime.my $r = 1; my $k = 2; while ($k < $prime) { $r = ($r * $k) % $prime; $k++; } if ($r + 1 % $prime == 0) { print "prime\n"; } else { print "not prime\n"; }
In reply to Re: Prime Numbers
by pc88mxer
in thread Prime Numbers
by gtozoom
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |