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:
+9
-1
@@ -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;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user