Data update

2023-09-16 17:28:03 -07:00 · 2023-09-16 17:28:03 -07:00 · 796d366b97
commit 796d366b97
parent 5af6d93694
455 changed files with 7413 additions and 1900 deletions
--- a/Task/Pseudo-random-numbers-Middle-square-method/EasyLang/pseudo-random-numbers-middle-square-method.easy
+++ b/Task/Pseudo-random-numbers-Middle-square-method/EasyLang/pseudo-random-numbers-middle-square-method.easy
@ -1,6 +1,6 @@
 global seed .
 seed = 675248
-proc rand . randNum .
+func rand .
   strSeed$ = seed
   s$ = seed * seed
   while not len s$ = len strSeed$ * 2
@ -8,8 +8,8 @@ proc rand . randNum .
   .
   seed = number substr s$ (len strSeed$ / 2 + 1) len strSeed$
   randNum = seed
+   return randNum
 .
 for i = 1 to 5
-   call rand randNum
-   print randNum
+   print rand
 .