Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
(→J: shorter and faster) |
|||
| Line 819: | Line 819: | ||
=={{header|J}}== |
=={{header|J}}== |
||
<syntaxhighlight lang="j">(_6{._3}.])&. |
<syntaxhighlight lang="j">(_6 {. _3 }. ])&.(10&#.^:_1)@*~^:(>: i. 6) 675248</syntaxhighlight> |
||
Or, shorter & faster: |
|||
<syntaxhighlight lang="j">}. (1e6 1e3 {.@#: *:)^:(< 7) 675248</syntaxhighlight> |
|||
{{out}} |
{{out}} |
||
<pre>959861 333139 981593 524817 432883 387691</pre> |
<pre>959861 333139 981593 524817 432883 387691</pre> |
||