Anonymous user
Talk:Deal cards for FreeCell: Difference between revisions
→32 bit Perl fix
Line 21:
==32 bit Perl fix==
The sample code for Perl works for perl 5.16 64 bit but not for perl 5.8 32 bit (e.g. game# 1070). This fix works for both.
<pre># return (($s = ($s * 214013 + 2531011) & 0x7fffffff) >> 16 );
| |||