diff options
| -rwxr-xr-x | src/wheel-gen.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl index 757c60e9b..90e6801e2 100755 --- a/src/wheel-gen.pl +++ b/src/wheel-gen.pl @@ -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; } |