Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 10:48, 30 December 2022
, 1 year agosimplify
(add OCaml) |
(simplify) |
||
Line 645:
=={{header|OCaml}}==
<syntaxhighlight lang="ocaml">let random_seq seed =
let next x = x * x /
Seq.iterate next (next seed)
(* test
let () =
random_seq 675248 |> Seq.take 5 |> Seq.iter (Printf.printf " %u")</syntaxhighlight>
{{out}}
<pre> 959861 333139 981593 524817 432883</pre>
=={{header|Perl}}==
Line 718 ⟶ 714:
def random():
global seed
return seed
for
print(random())
</syntaxhighlight>
| |||