Anonymous user
Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 22:11, 27 March 2022
, 2 years agoAdded Forth entry
(Added Sidef) |
(Added Forth entry) |
||
Line 279:
432883
</pre>
=={{header|Forth}}==
{{works with|gforth|0.7.3}}
The loop keeps the seed on top of the stack.
<lang forth>: next-random dup * 1000 / 1000000 mod ;
: 5-random-num 5 0 do next-random dup . loop ;
675248 5-random-num</lang>
{{out}}
<pre>959861 333139 981593 524817 432883 ok</pre>
=={{header|FreeBASIC}}==
| |||