Talk:Deal cards for FreeCell: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 21: | Line 21: | ||
==32 bit Perl fix== |
==32 bit Perl fix== |
||
The sample code for Perl works for perl 5.16 64 bit but not for perl 5.8 32 bit. This fix works. |
The sample code for Perl works for perl 5.16 64 bit but not for perl 5.8 32 bit. This fix works for both. |
||
<pre># return (($s = ($s * 214013 + 2531011) & 0x7fffffff) >> 16 ); |
<pre># return (($s = ($s * 214013 + 2531011) & 0x7fffffff) >> 16 ); |