Help for this page

Select Code to Download


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