simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 11:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

a bugfix in Sequence.product;

Browse source 
changed default block size of MList
This commit is contained in:
Simon Cruanes 2013-03-08 16:05:34 +01:00
parent 0dd50ca9a7
commit 9b6acc00ae
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
sequence.ml
View file

@ -197,7 +197,7 @@ module MList = struct
(** Build a MList of elements of the Seq. The optional argument indicates (** Build a MList of elements of the Seq. The optional argument indicates
the size of the blocks *) the size of the blocks *)
let of_seq ?(size=64) seq = let of_seq ?(size=8) seq =
(* read sequence into a MList.t *) (* read sequence into a MList.t *)
let start = make size in let start = make size in
let l = ref start in let l = ref start in
@ -255,7 +255,7 @@ let sort_uniq ?(cmp=Pervasives.compare) seq =
(** Cartesian product of the sequences. *) (** Cartesian product of the sequences. *)
let product outer inner = let product outer inner =
let outer = persistent outer in let inner = persistent inner in
from_iter from_iter
(fun k -> (fun k ->
outer (fun x -> outer (fun x ->