Linear congruential generator: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: added a comment describing what the // REXX operator is.) |
m (→{{header|REXX}}: changed a comment, added vertical whitespace.) |
||
Line 2,697: | Line 2,697: | ||
/* [↓] show 20 rand #'s for each seed.*/ |
/* [↓] show 20 rand #'s for each seed.*/ |
||
do j=1 for 20 /*generate & display 20 random numbers.*/ |
do j=1 for 20 /*generate & display 20 random numbers.*/ |
||
bsd = (1103515245 * bsd + 12345) // two@@31 |
|||
bsd = (1103515245 * bsd + 12345) // two@@31 |
|||
ms = ( 214013 * ms + 2531011) // two@@31 |
|||
/* ↑ */ |
|||
/* └─────◄──── REXX remainder operator*/ |
|||
say ' state' right(j,3) " BSD" right(bsd, 11) left('', 13), |
say ' state' right(j,3) " BSD" right(bsd, 11) left('', 13), |
||
" MS" right( ms, 11) left('', 5), |
" MS" right( ms, 11) left('', 5), |