Talk:Deal cards for FreeCell: Difference between revisions
Content added Content deleted
(→Example: ref and sig and fix links) |
No edit summary |
||
Line 18: | Line 18: | ||
--[[User:Dgamey|Dgamey]] 14:26, 19 September 2011 (UTC) |
--[[User:Dgamey|Dgamey]] 14:26, 19 September 2011 (UTC) |
||
==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. |
|||
<pre># return (($s = ($s * 214013 + 2531011) & 0x7fffffff) >> 16 ); |
|||
return (($s = ($s * 214013 + 2531011) % 2**31 ) >> 16 ); # fix for 32 bit perl</pre> |