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

6 lines
134 B
Nim

proc rand:int =
var seed {.global.} = 675248
seed = int(seed*seed) div 1000 mod 1000000
return seed
for _ in 1..5: echo rand()