1995-10-16 05:40:46 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Objective Caml *)
|
1995-10-16 05:40:46 -07:00
|
|
|
(* *)
|
|
|
|
(* Damien Doligez, projet Para, INRIA Rocquencourt *)
|
|
|
|
(* *)
|
1996-04-30 07:53:58 -07:00
|
|
|
(* Copyright 1996 Institut National de Recherche en Informatique et *)
|
1995-10-16 05:40:46 -07:00
|
|
|
(* Automatique. Distributed only by permission. *)
|
|
|
|
(* *)
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
(* $Id$ *)
|
|
|
|
|
|
|
|
(* Module [Random]: pseudo-random number generator *)
|
|
|
|
|
|
|
|
val init : int -> unit
|
|
|
|
(* Initialize the generator, using the argument as a seed.
|
|
|
|
The same seed will always yield the same sequence of numbers. *)
|
|
|
|
val full_init : int array -> unit
|
1996-11-06 08:54:46 -08:00
|
|
|
(* Same as [init] but takes more data as seed. *)
|
1995-10-16 05:40:46 -07:00
|
|
|
|
1996-11-06 08:54:46 -08:00
|
|
|
val bits : unit -> int
|
|
|
|
(* Return 30 random bits in a nonnegative integer. *)
|
1995-10-16 05:40:46 -07:00
|
|
|
val int : int -> int
|
|
|
|
(* [Random.int bound] returns a random number between 0 (inclusive)
|
|
|
|
and [bound] (exclusive). [bound] must be positive and smaller
|
|
|
|
than $2^{30}$. *)
|
|
|
|
val float : float -> float
|
|
|
|
(* [Random.float bound] returns a random number between 0 (inclusive)
|
|
|
|
and [bound] (exclusive). *)
|