Select Code to Download

#! perl -slw
use strict; package SparseBitVector; use Config;
...
   Four  => sub { popcount4($_) for $start .. $end },
   Six   => sub { popcnt(   $_) for $start .. $end },
};

C:\test>1199987.pl
sanity test for correctness
...
Four  1.08/s    5%    1%    --  -56%
Six   2.45/s  140%  131%  128%    --