Linear congruential generator: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 3,076: | Line 3,076: | ||
state 19 BSD 1647418052 MS 316395082 rand 4827 |
state 19 BSD 1647418052 MS 316395082 rand 4827 |
||
state 20 BSD 1675546029 MS 356309989 rand 5436 |
state 20 BSD 1675546029 MS 356309989 rand 5436 |
||
</pre> |
|||
=={{header|RPL}}== |
|||
≪ #1103515245d <span style="color:green">STATE</span> * #12345d + #2147483647d AND |
|||
DUP '<span style="color:green">STATE</span>' STO B→R |
|||
≫ '<span style="color:blue">?BSD</span>' STO |
|||
≪ #214013d <span style="color:green">STATE</span> * #2531011d + #2147483647d AND |
|||
DUP '<span style="color:green">STATE</span>' STO SRB SRB B→R |
|||
≫ '<span style="color:blue">?MS</span>' STO |
|||
≪ { } 0 '<span style="color:green">STATE</span>' STO |
|||
1 5 '''START''' OVER EVAL + '''NEXT''' |
|||
SWAP DROP |
|||
≫ '<span style="color:blue">TEST5</span>' STO |
|||
≪ <span style="color:blue">?BSD</span> ≫ <span style="color:blue">TEST5</span> |
|||
≪ <span style="color:blue">?MS</span> ≫ <span style="color:blue">TEST5</span> |
|||
{{out}} |
|||
<pre> |
|||
2: { 12345 1406932606 654583775 1449466924 229283573 } |
|||
1: { 38 7719 21238 2437 8855 } |
|||
</pre> |
</pre> |
||