Anonymous user
Linear congruential generator: Difference between revisions
m
→{{header|REXX}}: added/changed whitespace and comments.
m (added whitespace and highlighting to make it easier to see which formula is which.) |
m (→{{header|REXX}}: added/changed whitespace and comments.) |
||
Line 2,413:
=={{header|REXX}}==
<lang rexx>/*REXX program
/*──────────── number generators. BSD= 0 ──► (2**31)-1 MS= 0 ──► (2**16)-1 */
numeric digits 20 /*
do seed=0 to 1 /*perform for seed=0 and also seed=1.*/
bsd= seed;
say center('seed='seed, 79,
/* [↓] show 20 rand #'s for each seed.*/
do j=1 for 20 /*
bsd = (1103515245 * bsd + 12345) // 2**31
ms = ( 214013 * ms + 2531011) // 2**31
|