Help for this page
my (@chunks, @fbits, @lbits); ..... ... push @$chunks, [ (bits2num( [ @prefix, (split //, '0' x $size) ])), @$ +fbits - $size ]; } }
if ($idx2 >= $idx1) { ... do_chunk ($chunks, $fbits, [ @prefix, (split //, '0' . '1' x $size) ]) +; do_chunk ($chunks, [ @prefix, (split //, '1' . '0' x $size) ], $lbits) +; }