Select Code to Download

$ perl createblinker.pl 500000 -900000 100 >x.tmp 2>y.tmp

...
time taken: 39 secs
time taken: 64 secs  <- 32-bit Windows VM, applied 32-bit tip below

$ /opt/cperl-5.24.3c/bin/cperl -I. tbench1.pl x.tmp 2   # pack i2
cell count at start = 1500000
...
cell count at end = 1500000
time taken: 38 secs

bits 63-18 contains the $x value
bits 17-2  contains the $y value
bit  1     set when $y < 0
bit  0     set when $x < 0

bits 31-10 contains the $x value
bits 9-2   contains the $y value
bit  1     set when $y < 0
bit  0     set when $x < 0

package Organism;

...

1;