15 lines
660 B
Plaintext
15 lines
660 B
Plaintext
seed: 0$
|
|
ms_rand() := quotient(seed: mod(214013 * seed + 2531011, 2147483648), 65536)$
|
|
makelist(ms_rand(), 20); /* see http://oeis.org/A096558 */
|
|
|
|
[38, 7719, 21238, 2437, 8855, 11797, 8365, 32285, 10450, 30612, 5853, 28100, 1142, 281,
|
|
20537, 15921, 8945, 26285, 2997, 14680]
|
|
|
|
seed: 0$
|
|
bsd_rand() := seed: mod(1103515245 * seed + 12345, 2147483648)$
|
|
makelist(bsd_rand(), 20); /* see http://www.randomwalk.de/scimath/prngseqs.txt */
|
|
|
|
[12345, 1406932606, 654583775, 1449466924, 229283573, 1109335178, 1051550459,
|
|
1293799192, 794471793, 551188310, 803550167, 1772930244, 370913197, 639546082, 1381971571,
|
|
1695770928, 2121308585, 1719212846, 996984527, 1157490780]
|