diff options
Diffstat (limited to 'src/wheel-gen.pl')
-rwxr-xr-x | src/wheel-gen.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl index 7cb51887e..fe6157d62 100755 --- a/src/wheel-gen.pl +++ b/src/wheel-gen.pl @@ -18,20 +18,18 @@ sub END sub is_prime ($) { - my ($n0) = @_; + my ($n) = @_; use integer; - $n0 == 2 + $n == 2 and return 1; - my $n = $n0; my $d = 2; my $w = 1; my $q; while (1) { $q = $n / $d; - #print "q=$q n=$n d=$d\n"; ($n == $q * $d) and return 0; $d += $w; |