Pseudo-random numbers/Middle-square method: Difference between revisions

Content added Content deleted

Inline

@@ Line 713: / Line 713: @@
 global seed .
 seed = 675248
-proc rand . randNum .
+func rand .
    strSeed$ = seed
    s$ = seed * seed
@@ Line 721: / Line 721: @@
    seed = number substr s$ (len strSeed$ / 2 + 1) len strSeed$
    randNum = seed
+   return randNum
 .
 for i = 1 to 5
-   call rand randNum
+   print rand
-   print randNum
 .
 </syntaxhighlight>