Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
(simplify) |
Jazzedpineda (talk | contribs) (Add EasyLang) |
||
Line 467: | Line 467: | ||
{{out}} |
{{out}} |
||
<pre>959861 |
<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 |
333139 |
||
981593 |
981593 |