Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 21:50, 2 January 2022
, 2 years agoAdd Red
(Add Factor) |
(Add Red) |
||
Line 260:
{{out}}
<pre>(959861 333139 981593 524817 432883)</pre>
=={{header|Red}}==
{{trans|Phix}}
<lang rebol>Red[]
seed: 675248
rand: does [seed: to-integer (seed * 1.0 * seed / 1000) % 1000000] ; multiply by 1.0 to avoid integer overflow (32-bit)
loop 5 [print rand]</lang>
{{out}}
<pre>
959861
333139
981593
524817
432883
</pre>
=={{header|Wren}}==
| |||