Select Code to Download

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

$ perl createblinker.pl 500000 -900000 100 >x.tmp 2>y.tmp
$ perl tbench1.pl x.tmp 2
...
2 nums into 1  1,510 MB   39 secs   40 secs   42 secs   37 secs
shorter impl   1,661 MB   40 secs   42 secs   44 secs   37 secs

               mem size   v5.26.0   v5.24.2   v5.22.4   cperl
optimized i2   1,326 MB   31 secs   32 secs   33 secs   30 secs
2 nums into 1  1,292 MB   33 secs   34 secs   35 secs   31 secs
shorter impl   1,443 MB   35 secs   36 secs   37 secs   31 secs

package Organism;

...

1;