Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 12:37, 31 December 2022
, 1 year agoAdd EasyLang
(simplify) |
Jazzedpineda (talk | contribs) (Add EasyLang) |
||
Line 467:
{{out}}
<pre>959861
333139
981593
524817
432883
</pre>
=={{header|EasyLang}}==
<syntaxhighlight lang="text">
global seed .
seed = 675248
func rand . randNum .
strSeed$ = seed
s$ = seed * seed
while not len s$ = len strSeed$ * 2
s$ = "0" & s$
.
seed = number substr s$ (len strSeed$ / 2 + 1) len strSeed$
randNum = seed
.
for i = 1 to 5
call rand randNum
print randNum
.
</syntaxhighlight>
{{out}}
<pre>
959861
333139
981593
|