Pseudo-random numbers/Middle-square method: Difference between revisions
Pseudo-random numbers/Middle-square method (view source)
Revision as of 22:07, 29 December 2022
, 1 year agoadd OCaml
m (→{{header|Quackery}}: typo) |
(add OCaml) |
||
Line 642:
432883
</pre>
=={{header|OCaml}}==
<syntaxhighlight lang="ocaml">let random_seq seed =
let next x = x * x / 1_000 mod 1_000_000 in
Seq.iterate next (next seed)
(* test code *)
let () =
let print_first5 sq =
sq |> Seq.take 5 |> Seq.map string_of_int
|> List.of_seq |> String.concat " " |> print_endline
in
print_first5 (random_seq 675248)</syntaxhighlight>
{{out}}
<pre>959861 333139 981593 524817 432883</pre>
=={{header|Perl}}==
| |||