summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2001-02-04 14:04:42 +0000
committerJim Meyering <jim@meyering.net>2001-02-04 14:04:42 +0000
commit23d47fb4aab800da7f17a713581540dc04c9b04a (patch)
tree26880d90b0754d1c92611683fbd4665043745838 /src
parent6bb0a39d24772835466274eeb22d2010f65d0bc2 (diff)
downloadcoreutils-23d47fb4aab800da7f17a713581540dc04c9b04a.tar.xz
*** empty log message ***
Diffstat (limited to 'src')
-rwxr-xr-xsrc/wheel-gen.pl17
1 files changed, 4 insertions, 13 deletions
diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 74ad32425..a944b91c5 100755
--- a/src/wheel-gen.pl
+++ b/src/wheel-gen.pl
@@ -6,7 +6,7 @@
use strict;
use Getopt::Long;
-(my $VERSION = '$Revision: 1.2 $ ') =~ tr/[0-9].//cd;
+(my $VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
(my $program_name = $0) =~ s|.*/||;
my $debug = 0;
@@ -65,16 +65,7 @@ sub END
# die "$program_name: FIXME - process $arg here"
# }
- my $n = $ARGV[0];
-
- my $is_prime =
- {
- 2 => 1,
- 3 => 1,
- 5 => 1,
- 7 => 1,
- 11 => 1,
- };
+ my $wheel_size = $ARGV[0];
sub is_prime ($)
{
@@ -103,9 +94,9 @@ sub END
}
my $prod = 2 * 3 * 5;
- my $last_prime = 1;
+ my $last_prime = 2;
my $i;
- for ($i = 2; $i < 2 * $prod; $i++)
+ for ($i = 3; $i < 2 * $prod; $i++)
{
if (is_prime $i)
{