1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
|
module type S = sig
@BEGIN_FROM_4_14_0@
module State = Random.State
@END_FROM_4_14_0@
@BEGIN_BEFORE_4_14_0@
module State :
sig type t val make : int array -> t val make_self_init : unit -> t
val copy : t -> t val bits : t -> int val int : t -> int -> int
val full_int : t -> int -> int val int32 : t -> Int32.t -> Int32.t
val nativeint : t -> Nativeint.t -> Nativeint.t
val int64 : t -> Int64.t -> Int64.t val float : t -> float -> float
val bool : t -> bool val bits32 : t -> Int32.t val bits64 : t -> Int64.t
val nativebits : t -> Nativeint.t end
@END_BEFORE_4_14_0@
(** @since 4.14.0: module State = Random.State
*)
val bits32 : unit -> Int32.t
(** @since 4.14.0: val bits32 : unit -> Int32.t *)
val bits64 : unit -> Int64.t
(** @since 4.14.0: val bits64 : unit -> Int64.t *)
val nativebits : unit -> Nativeint.t
(** @since 4.14.0: val nativebits : unit -> Nativeint.t *)
val full_int : int -> int
(** @since 4.13.0: val full_int : int -> int *)
val init : int -> unit
(** Alias for {!Random.init} *)
val full_init : int array -> unit
(** Alias for {!Random.full_init} *)
val self_init : unit -> unit
(** Alias for {!Random.self_init} *)
val bits : unit -> int
(** Alias for {!Random.bits} *)
val int : int -> int
(** Alias for {!Random.int} *)
val int32 : Int32.t -> Int32.t
(** Alias for {!Random.int32} *)
val nativeint : Nativeint.t -> Nativeint.t
(** Alias for {!Random.nativeint} *)
val int64 : Int64.t -> Int64.t
(** Alias for {!Random.int64} *)
val float : float -> float
(** Alias for {!Random.float} *)
val bool : unit -> bool
(** Alias for {!Random.bool} *)
val get_state : unit -> State.t
(** Alias for {!Random.get_state} *)
val set_state : State.t -> unit
(** Alias for {!Random.set_state} *)
end
|