Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
(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>
|