Linear congruential generator: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed the REXX program comment.) |
m (→{{header|REXX}}: added a comment describing what the // REXX operator is.) |
||
Line 2,696: | Line 2,696: | ||
say center(' seed='seed" ", 79, '─') /*display the seed in a title/separator*/ |
say center(' seed='seed" ", 79, '─') /*display the seed in a title/separator*/ |
||
/* [↓] show 20 rand #'s for each seed.*/ |
/* [↓] show 20 rand #'s for each seed.*/ |
||
do j=1 for 20 /*generate |
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 |
ms = ( 214013 * ms + 2531011) // two@@31 |
||
/* // is the 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), |