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

7 lines
101 B
Text

s = 675248
define r() {
s = s * s / 1000 % 1000000
return(s)
}
for (i = 0; i != 5; ++i) r()