Select Code to Download

#!/usr/bin/env perl

...
sub just_shift {
    return ($n >> 18, $n << 46 >> 58, $n << 52 >> 58, $n << 58 >> 58);
}

$ pm_bit_twiddle.pl
and_rshift:    2147883105 => 8193 : 33 : 33 : 33
...
mixed_assign  2182671/s        12%            5%           --       -4
+6%    -48%
just_shift    4037158/s       108%           93%          85%         
+--     -3%
mixed         4163497/s       114%           99%          91%         
+3%      --