2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
|
|
type t
|
|
|
|
|
type roll = t
|
|
|
|
|
|
|
|
|
|
val encoding: roll Data_encoding.t
|
|
|
|
|
|
|
|
|
|
val random:
|
|
|
|
|
Seed_repr.sequence -> bound:roll -> roll * Seed_repr.sequence
|
|
|
|
|
|
|
|
|
|
val first: roll
|
|
|
|
|
val succ: roll -> roll
|
|
|
|
|
|
|
|
|
|
val to_int32: roll -> Int32.t
|
|
|
|
|
|
|
|
|
|
val (=): roll -> roll -> bool
|
