Select Code to Download

$ perl createblinker.pl 5000 -9000 100 >x.tmp 2>y.tmp

$ /opt/perl-5.24.2/bin/perl -I. tbench1.pl x.tmp 2
cell count at start = 15000
...
cell count at end = 15000
time taken: 0 secs

$ /opt/cperl-5.24.3c/bin/cperl -I. tbench1.pl x.tmp 2
cell count at start = 15000
...
cell count at end = 6753   <-- fails on 64-bit hw ($half = 32)
time taken: 0 secs

# perl createblinker.pl 5 -9 100 >x.tmp 2>y.tmp

# print "@zcells\n";
9223372039002259557 -9.22337203900226e+18 -9.22337203900226e+18, ...

# use 30-bits on 64-bit hw for cperl compatibility
my $half = ( ( log(~0 + 1) / log(2) ) >= 64 ) ? 30 : 16;