Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 13:12, 29 July 2023
, 9 months agoAdded Chipmunk Basic
Thundergnat (talk | contribs) m (Re-add Tcl non-destructively) |
(Added Chipmunk Basic) |
||
Line 412:
4: 524817
5: 432883</pre>
==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
<syntaxhighlight lang="qbasic">10 semilla = 675248
20 for i = 1 to 5
30 print i;": ";semilla
31 semilla = ((semilla*semilla)/1000) mod 1000000
40 next i</syntaxhighlight>
==={{header|FreeBASIC}}===
| |||