1
0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-07-26 02:30:35 +02:00

emit a comment, print numbers one per line

This commit is contained in:
Jim Meyering
2001-02-06 09:34:18 +00:00
parent 47b335399c
commit eeae6e79dd
+9 -1
View File
@@ -56,6 +56,14 @@ sub is_prime ($)
}
}
my $ws_m1 = $wheel_size - 1;
print <<EOF;
/* The first $ws_m1 elements correspond to the incremental offsets of the
first $wheel_size primes (@primes). The $wheel_size(th) element is the
difference between that last prime and the next largest integer that is
not a multiple of those primes. */
EOF
my @increments;
my $prev = 2;
for (my $i = 3; ; $i += 2)
@@ -78,7 +86,7 @@ sub is_prime ($)
}
}
print "@increments\n";
print join (",\n", @increments), "\n";
exit 0;
}