Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add J) |
(Add Factor) |
||
| Line 143: | Line 143: | ||
{{out}} |
{{out}} |
||
<pre>959861 |
<pre>959861 |
||
333139 |
|||
981593 |
|||
524817 |
|||
432883 |
|||
</pre> |
|||
=={{header|Factor}}== |
|||
{{trans|Phix}} |
|||
{{works with|Factor|0.99 2021-06-02}} |
|||
<lang factor>USING: kernel math namespaces prettyprint ; |
|||
SYMBOL: seed |
|||
675248 seed set-global |
|||
: rand ( -- n ) seed get sq 1000 /i 1000000 mod dup seed set ; |
|||
5 [ rand . ] times</lang> |
|||
{{out}} |
|||
<pre> |
|||
959861 |
|||
333139 |
333139 |
||
981593 |
981593 |
||