Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Efficient bit-twiddling in Perl.

by salva (Abbot)
on Feb 28, 2013 at 15:17 UTC ( #1021066=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my @table;
    $table[$_] = [..., ..., ...] for 0..0x0003ffff;
    ...
      my ($nxt, $mid, $bot) = @{$table[$n & 0x0003ffff]};
      ...
    }