RosettaCodeData/Task/Pseudo-random-numbers-Middle-square-method/BASIC256/pseudo-random-numbers-middle-square-method.basic
2023-07-01 13:44:08 -04:00

11 lines
184 B
Text

global semilla
semilla = 675248
for i = 1 to 5
print i; ": "; Random()
next i
end
function Random()
semilla = floor((semilla*semilla/1e3) mod 1e6)
return int(semilla)
end function