balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Alpha: add Seed_repr.deterministic_seed

Browse Source
This commit is contained in:
Marco Stronati 2018-06-06 23:53:45 +02:00 committed by Grégoire Henry
parent 0ad4f8f6e6
commit 46d053fdb3
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/proto_alpha/lib_protocol/src/seed_repr.ml
View File

@ -91,12 +91,13 @@ let check_hash nonce hash =
let nonce_hash_key_part = Nonce_hash.to_path
let initial_nonce_0 =
MBytes.of_string (String.make Constants_repr.nonce_length '\000')
let initial_nonce_0 = zero_bytes
let initial_nonce_hash_0 =
hash initial_nonce_0
let deterministic_seed seed = nonce seed zero_bytes
let initial_seeds n =
let rec loop acc elt i =
if Compare.Int.(i = 1) then
@ -104,7 +105,6 @@ let initial_seeds n =
else
loop
(elt :: acc)
(nonce elt
(MBytes.of_string (String.make Constants_repr.nonce_length '\000')))
(deterministic_seed elt)
(i-1) in
loop [] (B (State_hash.hash_bytes [])) n

3
src/proto_alpha/lib_protocol/src/seed_repr.mli
View File

@ -44,6 +44,9 @@ val take_int32 : sequence -> int32 -> int32 * sequence
val empty : seed
(** Returns a new seed by hashing the one passed with a constant. *)
val deterministic_seed : seed -> seed
(** [intial_seeds n] generates the first [n] seeds for which there are no nonces.
The first seed is a constant value. The kth seed is the hash of seed (k-1)
concatenated with a constant. *)