Pseudo-random numbers/Middle-square method: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: typo) |
(add OCaml) |
||
Line 642: | Line 642: | ||
432883 |
432883 |
||
</pre> |
</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}}== |
=={{header|Perl}}== |