Anonymous user
Linear congruential generator: Difference between revisions
Add Nimrod
m (→{{header|REXX}}: removed "style" from PRE html tag.) |
(Add Nimrod) |
||
Line 990:
1293799192, 794471793, 551188310, 803550167, 1772930244, 370913197, 639546082, 1381971571,
1695770928, 2121308585, 1719212846, 996984527, 1157490780]</lang>
=={{header|Nimrod}}==
<lang nimrod>proc bsdRand(seed: int): iterator: int =
var seed = seed
result = iterator: int =
while true:
seed = (1103515245 * seed + 12345) and 0x7fffffff
yield seed
proc msvcrtRand(seed: int): iterator: int =
var seed = seed
result = iterator: int =
while true:
seed = (214013 * seed + 2531011) and 0x7fffffff
yield seed</lang>
=={{header|PARI/GP}}==
| |||