Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Re-add Tcl non-destructively) |
(Added Chipmunk Basic) |
||
Line 412: | Line 412: | ||
4: 524817 |
4: 524817 |
||
5: 432883</pre> |
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}}=== |
==={{header|FreeBASIC}}=== |