Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 10:26, 22 June 2022
, 1 year agoAdded uBasic/4tH version
(add task to aarch64 assembly raspberry pi) |
(Added uBasic/4tH version) |
||
Line 771:
</pre>
=={{header|uBasic/4tH}}==
{{trans|c}}
<lang>If Info("wordsize") < 64 Then Print "This needs a 64-bit uBasic" : End
s = 675248
For i = 1 To 5
Print Set(s, FUNC(_random(s)))
Next
End
_random Param (1) : Return (s*s/1000%1000000)</lang>
{{out}}
<pre>959861
333139
981593
524817
432883
0 OK, 0:140
</pre>
=={{header|UNIX Shell}}==
{{works with|zsh}}
| |||