RosettaCodeData/Task/Pseudo-random-numbers-Middle-square-method/Phix/pseudo-random-numbers-middle-square-method.phix
2026-02-01 16:33:20 -08:00

10 lines
237 B
Text

with javascript_semantics
integer seed = 675248
function random()
seed = remainder(floor(seed*seed/1000),1e6)
-- seed = to_integer(sprintf("%012d",seed*seed)[4..9])
return seed
end function
for i=1 to 5 do
?random()
end for