Select Code to Download

# this is inside a 'use integer;' block 
sub mix4 ($$$) {
...
    $_[B] -= $_[C]; $_[B] -= $_[A]; { no integer; $_[B] ^= ($_[A]<<10)
+; } 
    $_[C] -= $_[A]; $_[C] -= $_[B]; { no integer; $_[C] ^= ($_[B]>>15)
+; }
}

# there is no 'use integer;' here; 
sub mix ($$$) {
...
    $_[B] -= $_[C]; $_[B] -= $_[A]; $_[B] ^= ($_[A]<<10);
    $_[C] -= $_[A]; $_[C] -= $_[B]; $_[C] ^= ($_[B]>>15);
}

     a1-x c>13  : A   :            59743          0000e95f
     b1-x a< 8  :  B  :                                    -      -162
+9499560          9edfcf58
...
                     : >>13    :                                 00000
+000000001001111011011111110          0004f6fe
                     : res     :                                 10000
+000000001001111011011111110          8004f6fe
     c1-x b>13  :   C :                                    -          
+                          -      -2147158274          8004f6fe