Page
Library
Module
Module type
Parameter
Class
Class type
Source
OSeqSourceinclude module type of Seq with type 'a node = 'a Seq.nodeA sequence xs of type 'a t is a delayed list of elements of type 'a. Such a sequence is queried by performing a function application xs(). This function application returns a node, allowing the caller to determine whether the sequence is empty or nonempty, and in the latter case, to obtain its head and tail.
A node is either Nil, which means that the sequence is empty, or Cons (x, xs), which means that x is the first element of the sequence and that xs is the remainder of the sequence.
The functions in this section consume their argument, a sequence, either partially or completely:
is_empty and uncons consume the sequence down to depth 1. That is, they demand the first argument of the sequence, if there is one.iter, fold_left, length, etc., consume the sequence all the way to its end. They terminate only if the sequence is finite.for_all, exists, find, etc. consume the sequence down to a certain depth, which is a priori unpredictable.Similarly, among the functions that consume two sequences, one can distinguish two groups:
iter2 and fold_left2 consume both sequences all the way to the end, provided the sequences have the same length.for_all2, exists2, equal, compare consume the sequences down to a certain depth, which is a priori unpredictable.The functions that consume two sequences can be applied to two sequences of distinct lengths: in that case, the excess elements in the longer sequence are ignored. (It may be the case that one excess element is demanded, even though this element is not used.)
None of the functions in this section is lazy. These functions are consumers: they force some computation to take place.
If xs is empty, then uncons xs is None.
If xs is nonempty, then uncons xs is Some (x, ys) where x is the head of the sequence and ys its tail.
fold_lefti f _ xs invokes f _ i x successively for every element x located at index i of the sequence xs.
An accumulator of type 'b is threaded through the calls to f.
It terminates only if the sequence xs is finite.
fold_lefti f accu xs is equivalent to fold_left (fun accu (i, x) -> f accu i x) accu (zip (ints 0) xs).
find_index p xs returns Some i, where i is the index of the first element of the sequence xs that satisfies p x, if there is such an element.
It returns None if there is no such element.
The sequence xs must be finite.
Same as find_map, but the predicate is applied to the index of the element as first argument (counting from 0), and the element itself as second argument.
The sequence xs must be finite.
fold_left2 f _ xs ys invokes f _ x y successively for every pair (x, y) of elements drawn synchronously from the sequences xs and ys.
An accumulator of type 'a is threaded through the calls to f.
If the sequences xs and ys have different lengths, then iteration stops as soon as one sequence is exhausted; the excess elements in the other sequence are ignored.
Iteration terminates only if at least one of the sequences xs and ys is finite.
fold_left2 f accu xs ys is equivalent to fold_left (fun accu (x, y) -> f accu x y) (zip xs ys).
The functions in this section are lazy: that is, they return sequences whose elements are computed only when demanded.
forever f is an infinite sequence where every element is produced (on demand) by the function call f().
For instance, forever Random.bool is an infinite sequence of random bits.
forever f is equivalent to map f (repeat ()).
The functions in this section are lazy: that is, they return sequences whose elements are computed only when demanded.
This exception is raised when a sequence returned by once (or a suffix of it) is queried more than once.
The sequence once xs has the same elements as the sequence xs.
Regardless of whether xs is ephemeral or persistent, once xs is an ephemeral sequence: it can be queried at most once. If it (or a suffix of it) is queried more than once, then the exception Forced_twice is raised. This can be useful, while debugging or testing, to ensure that a sequence is consumed at most once.
If xss is a matrix (a sequence of rows), then transpose xss is the sequence of the columns of the matrix xss.
The rows of the matrix xss are not required to have the same length.
The matrix xss is not required to be finite (in either direction).
The matrix xss must be persistent.
If xss is a sequence of sequences, then concat xss is its concatenation.
If xss is the sequence xs0; xs1; ... then concat xss is the sequence xs0 @ xs1 @ ....
concat_map f xs is equivalent to concat (map f xs).
concat_map is an alias for flat_map.
The sequence map_product f xs ys is the image through f of the Cartesian product of the sequences xs and ys.
For every element x of xs and for every element y of ys, the element f x y appears once as an element of map_product f xs ys.
The order in which these elements appear is unspecified.
The sequences xs and ys are not required to be finite.
The sequences xs and ys must be persistent.
map_product f xs ys is equivalent to map (fun (x, y) -> f x y) (product xs ys).
partition_map f xs returns a pair of sequences (ys, zs), where:
ys is the sequence of the elements y such that f x = Left y, where x ranges over xs;zs is the sequence of the elements z such that f x = Right z, where x ranges over xs.partition_map f xs is equivalent to a pair of filter_map Either.find_left (map f xs) and filter_map Either.find_right (map f xs).
Querying either of the sequences returned by partition_map f xs causes xs to be queried. Therefore, querying both of them causes xs to be queried twice. Thus, xs must be persistent and cheap. If that is not the case, use partition_map f (memoize xs).
A dispenser is a representation of a sequence as a function of type unit -> 'a option. Every time this function is invoked, it returns the next element of the sequence. When there are no more elements, it returns None. A dispenser has mutable internal state, therefore is ephemeral: the sequence that it represents can be consumed at most once.
of_dispenser it is the sequence of the elements produced by the dispenser it. It is an ephemeral sequence: it can be consumed at most once. If a persistent sequence is needed, use memoize (of_dispenser it).
to_dispenser xs is a fresh dispenser on the sequence xs.
This dispenser has mutable internal state, which is not protected by a lock; so, it must not be used by several threads concurrently.
Cycle through the iterator infinitely. The iterator shouldn't be empty.
# OSeq.(cycle (1--3) |> take 10 |> to_list);;
- : int list = [1; 2; 3; 1; 2; 3; 1; 2; 3; 1]iterate x f is [x; f x; f (f x); f (f (f x)); ...].
# OSeq.(iterate 0 succ |> take 10 |> to_list);;
- : int list = [0; 1; 2; 3; 4; 5; 6; 7; 8; 9]Dual of fold, with a deconstructing operation. It keeps on unfolding the 'b value into a new 'b, and a 'a which is yielded, until None is returned.
# OSeq.(unfold (fun x -> if x<5 then Some (string_of_int x, x+1) else None) 0 |> to_list);;
- : string list = ["0"; "1"; "2"; "3"; "4"]Call the same function an infinite number of times (useful for instance if the function is a random iterator).
Calls the function, starting from 0, on increasing indices. If n is provided and is a positive int, iteration will stop at the limit (excluded). For instance init ~n:4 (fun x->x) will yield 0, 1, 2, and 3.
Fold on the iterator, tail-recursively.
Like fold, but keeping successive values of the accumulator.
# OSeq.(scan (+) 0 (1--5) |> to_list);;
- : int list = [0; 1; 3; 6; 10; 15]Iterate on elements with their index in the iterator, from 0.
Lazy map. No iteration is performed now, the function will be called when the result is traversed.
Lazy map with indexing starting from 0. No iteration is performed now, the function will be called when the result is traversed.
Lazy fold and map. No iteration is performed now, the function will be called when the result is traversed. The result is an iterator over the successive states of the fold. The final accumulator is discarded. Unlike scan, fold_map does not return the first accumulator.
Append the two iterators; the result contains the elements of the first, then the elements of the second iterator.
Monadic bind; each element is transformed to a sub-iterator which is then iterated on, before the next element is processed, and so on.
Same as app but interleaves the values of the function and the argument iterators. See interleave for more details.
flat_map_interleave f seq is similar to flat_map f seq, except that each sub-sequence is interleaved rather than concatenated in order. See interleave for more details.
Is the given element, member of the iterator?
take_nth n g returns every element of g whose index is a multiple of n. For instance take_nth 2 (1--10) |> to_list will return [1;3;5;7;9]
Filter out elements that do not satisfy the predicate.
Fold elements until ('a, `Stop) is indicated by the accumulator.
Maps some elements to 'b, drop the other ones
partition p l returns the elements that satisfy p, and the elements that do not satisfy p
Minimum element, according to the given comparison function.
Lexicographic comparison of iterators. If a iterator is a prefix of the other one, it is considered smaller.
find p e returns the first element of e to satisfy p, or None.
find_map f e returns the result of f on the first element of e for which it returns Some _, or None otherwise.
Map on the two iterators. Stops once one of them is exhausted.
Iterate on the two iterators. Stops once one of them is exhausted.
Fold the common prefix of the two iterators
Succeeds if all pairs of elements satisfy the predicate. Ignores elements of an iterator if the other runs dry.
Succeeds if some pair of elements satisfy the predicate. Ignores elements of an iterator if the other runs dry.
Combine common part of the gens (stops when one is exhausted)
Pick elements fairly in each sub-iterator. The merge of gens e1, e2, ... picks elements in e1, e2, in e3, e1, e2 .... Once an iterator is empty, it is skipped; when they are all empty, and none remains in the input, their merge is also empty. For instance, merge [1;3;5] [2;4;6] will be, in disorder, 1;2;3;4;5;6.
Intersection of two sorted iterators. Only elements that occur in both inputs appear in the output
Merge two sorted iterators into a sorted iterator
Split the iterator into n iterators in a fair way. Elements with index = k mod n with go to the k-th iterator. n default value is 2.
interleave a b yields an element of a, then an element of b, and so on. When one of the iterators is exhausted, this behaves like the other iterator.
Put the separator element between all elements of the given iterator
Cartesian product, in no predictable order. Works even if some of the arguments are infinite.
Cartesian product of three iterators, see product.
Cartesian product of four iterators, see product.
Cartesian product of five iterators, see product.
val product6 :
'a t ->
'b t ->
'c t ->
'd t ->
'e t ->
'f t ->
('a * 'b * 'c * 'd * 'e * 'f) tCartesian product of six iterators, see product.
val product7 :
'a t ->
'b t ->
'c t ->
'd t ->
'e t ->
'f t ->
'g t ->
('a * 'b * 'c * 'd * 'e * 'f * 'g) tCartesian product of seven iterators, see product.
Produce the cartesian product of this sequence of sequences, by returning all the ways of picking one element per sequence. NOTE the order of the returned sequence is unspecified.
This assumes each sub-sequence is finite, and that the main sequence is also finite.
For example:
# cartesian_product [[1;2];[3];[4;5;6]] |> sort =
[[1;3;4];[1;3;5];[1;3;6];[2;3;4];[2;3;5];[2;3;6]];;
# cartesian_product [[1;2];[];[4;5;6]] = [];;
# cartesian_product [[1;2];[3];[4];[5];[6]] |> sort =
[[1;3;4;5;6];[2;3;4;5;6]];;invariant: cartesian_product l = map_product_l id l.
map_product_l f l maps each element of l to a list of objects of type 'b using f. We obtain [l1;l2;...;ln] where length l=n and li : 'b list. Then, it returns all the ways of picking exactly one element per li.
Remove consecutive duplicate elements. Basically this is like fun e -> map List.hd (group e).
Sort according to the given comparison function. The iterator must be finite.
Sort and remove duplicates. The iterator must be finite.
chunks n e returns a iterator of arrays of length n, composed of successive elements of e. The last array may be smaller than n
Combinations of given length. The ordering of the elements within each combination is unspecified. Example (ignoring ordering): combinations 2 (1--3) |> to_list = [[1;2]; [1;3]; [2;3]]
All subsets of the iterator (in no particular order). The ordering of the elements within each subset is unspecified.
A type that can be compared and hashed. invariant: for any x and y, if equal x y then hash x=hash y must hold.
val group_by :
(module HashedType with type t = 'key) ->
project:('a -> 'key) ->
'a t ->
('key * 'a list) tGroup together elements that project onto the same key, ignoring their order of appearance. The order of each resulting list is unspecified.
This function needs to consume the whole input before it can emit anything.
val group_by_fold :
(module HashedType with type t = 'key) ->
project:('a -> 'key) ->
fold:('b -> 'a -> 'b) ->
init:'b ->
'a t ->
('key * 'b) tGroup together elements that project onto the same key, folding them into some aggregate of type 'b as they are met. This is the most general version of the "group_by" functions.
This function needs to consume the whole input before it can emit anything.
Map each distinct element to its number of occurrences in the whole seq. Similar to group_by_fold hash_key ~project:(fun x->x) ~fold:(fun a _->a+1) ~init:0 seq.
This function needs to consume the whole input before it can emit anything.
val join_by :
(module HashedType with type t = 'key) ->
project_left:('a -> 'key) ->
project_right:('b -> 'key) ->
merge:('key -> 'a -> 'b -> 'c option) ->
'a t ->
'b t ->
'c tjoin_by ~project_left ~project_right ~merge a b takes every pair of elements x from a and y from b, and if they map onto the same key k by project_left and project_right respectively, and if merge k x y = Some res, then it yields res.
If merge k x y returns None, the combination of values is discarded.
This function works with infinite inputs, it does not have to consume the whole input before yielding elements.
val join_by_fold :
(module HashedType with type t = 'key) ->
project_left:('a -> 'key) ->
project_right:('b -> 'key) ->
init:'c ->
merge:('key -> 'a -> 'b -> 'c -> 'c) ->
'a t ->
'b t ->
'c tjoin_by_fold ~project_left ~project_right ~init ~merge a b takes every pair of elements x from a and y from b, and if they map onto the same key k by project_left and project_right respectively, it fold x and y into the accumulator for this key (which starts at init).
This function consumes both inputs entirely before it emits anything.
Tail call conversion to list, in reverse order (more efficient)
Convert the iterator to an array (not very efficient). The iterator must be memoized, as it's traversed twice.
Iterate on (a slice of) the given array
Build a functional iterator from a mutable, imperative generator. The result is properly memoized and can be iterated on several times, as a normal functional value.
Traverse the iterator and writes its content to the buffer
concat_string ~sep s concatenates all strings of i, separated with sep. The iterator must be memoized.
include module type of InfixPretty print the content of the iterator on a formatter.
Store content of the transient iterator in memory, to be able to iterate on it several times later.
This interface is designed to make it easy to build complex streams of values in a way that resembles Python's generators (using "yield").