Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 10:23, 4 January 2022
, 2 years agoAdded AppleScript.
(Added XPL0 example.) |
(Added AppleScript.) |
||
Line 47:
959861 333139 981593 524817 432883
</pre>
=={{header|AppleScript}}==
<lang applescript>on newGenerator(n, seed)
script generator
property seed : missing value
property p1 : 10 ^ (n div 2)
property p2 : 10 ^ n
on getRandom()
set seed to seed * seed div p1 mod p2
return seed div 1
end getRandom
end script
set generator's seed to seed mod (10 ^ n)
return generator
end newGenerator
local generator, output
set generator to newGenerator(6, 675248)
set output to {}
repeat 5 times
set end of output to generator's getRandom()
end repeat
return output</lang>
{{output}}
<lang applescript>{959861, 333139, 981593, 524817, 432883}</lang>
=={{header|C++}}==
| |||