in reply to Re^2: emulate 32-bit on perl 64
in thread emulate 32-bit on perl 64
This is slightly more readable:
sub fix32{ $_[0] & 0xffffffff } for( my $h = 16; $h < 80; $h++ ) { $i[$h] = a2( fix32( fix32( fix32( $i[$h - 3] ^ $i[$h - 8] ) ^ $i[$h - 14] ) + ^ $i[$h - 16] ) , 1 ); }
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|
---|
In Section
Seekers of Perl Wisdom