module GenMList:sig
..end
Unrolled lists, append-only, used for storing the content of a generator.
Example:
let g = 1 -- 1000 ;;
val g : int t = <fun>
let c = g |> MList.of_gen_lazy |> MList.to_clonable;;
val c : int clonable = <obj>
c#next |> take 500 |> to_list;;
- : int list = [1; 2; 3; .....; 500]
let c' = c#clone ;;
val c' : int clonable = <obj>
c |> to_list;;
- : int list = [501; 502; ....; 1000]
c'#gen |> to_list;; (* c consumed, but not c' *)
- : int list = [501; 502; ....; 1000]
c#gen |> to_list;;
- : int list = []
type'a
gen =unit -> 'a option
type 'a
clonable = <
|
clone : |
(* |
Clone the internal state
| *) |
|
gen : |
(* |
Generator of values tied to this copy
| *) |
type 'a
t
val of_gen : 'a gen -> 'a t
of_gen g
consumes g
to build a mlistval of_gen_lazy : ?max_chunk_size:int -> ?caching:bool -> 'a gen -> 'a t
of_gen_lazy g
makes a mlist that will read from g
as required,
until g
is exhausted. Do not use g
directly after this, or
some elements will be absent from the mlist!max_chunk_size
: if provided and caching = true
,
sets the (maximal) size of the internal chunkscaching
: if true or absent, values are read from the generator
by chunks of increasing size. If false, values are read one by one.val to_gen : 'a t -> 'a gen
val to_clonable : 'a t -> 'a clonable