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

3 lines
71 B
Text

675248 5 sn
[d * 1000 / 1000000 %] sr
[lr x p ln 1 - d sn 0 <l] d sl x