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

apparently drup doesn't like polymorphic variants

Browse source
This commit is contained in:
Simon Cruanes 2014-05-19 14:58:11 +02:00
parent 6ff605ac04
commit 3d61de614e
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
sequence.ml
View file

@ -243,17 +243,19 @@ let persistent seq =
let l = MList.of_seq seq in let l = MList.of_seq seq in
MList.to_seq l MList.to_seq l
type 'a lazy_seq = [`Suspend | `Cached of 'a t] ref type 'a lazy_state =
| LazySuspend
| LazyCached of 'a t
let persistent_lazy (seq:'a t) = let persistent_lazy (seq:'a t) =
let (r:'a lazy_seq) = ref `Suspend in let r = ref LazySuspend in
fun k -> fun k ->
match !r with match !r with
| `Cached seq' -> seq' k | LazyCached seq' -> seq' k
| `Suspend -> | LazySuspend ->
(* here if this traversal is interruted, no caching occurs *) (* here if this traversal is interruted, no caching occurs *)
let seq' = MList.of_seq_with seq k in let seq' = MList.of_seq_with seq k in
r := `Cached (MList.to_seq seq') r := LazyCached (MList.to_seq seq')
(** Sort the sequence. Eager, O(n) ram and O(n ln(n)) time. *) (** Sort the sequence. Eager, O(n) ram and O(n ln(n)) time. *)
let sort ?(cmp=Pervasives.compare) seq = let sort ?(cmp=Pervasives.compare) seq =