Linear congruential generator: Difference between revisions
→{{header|Phix}}
Line 1,895:
end function
--function BSDrnd() -- (only works on 64-bit, as per ERRE and UCBLogo above on 32-bit)
-- seed = remainder(1103515245 * seed + 12345, #8000_0000)
-- return seed
|