Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 10:27, 8 September 2023
, 8 months ago→{{header|EasyLang}}
(Added Chipmunk Basic) |
|||
Line 713:
global seed .
seed = 675248
strSeed$ = seed
s$ = seed * seed
Line 721:
seed = number substr s$ (len strSeed$ / 2 + 1) len strSeed$
randNum = seed
.
for i = 1 to 5
▲ print randNum
.
</syntaxhighlight>
|