Module Core_extended.Std.List

include Core.List

This module extends Base.List with bin_io and quickcheck.

include sig ... end
val bin_read_t : 'a Bin_prot.Read.reader ‑> 'a t Bin_prot.Read.reader
val bin_size_t : 'a Bin_prot.Size.sizer ‑> 'a t Bin_prot.Size.sizer
val bin_write_t : 'a Bin_prot.Write.writer ‑> 'a t Bin_prot.Write.writer
val bin_shape_t : Bin_prot.Shape.t ‑> Bin_prot.Shape.t
module Assoc = Core_kernel.List.Assoc

The interface from Base

include module type of sig ... end with type t := a t with module Assoc := Assoc
type 'a t = 'a list
val compare : ('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a t ‑> int
val hash_fold_t : (Base.Hash.state ‑> 'a ‑> Base.Hash.state) ‑> Base.Hash.state ‑> 'a t ‑> Base.Hash.state
val t_of_sexp : (Base.Sexp.t ‑> 'a) ‑> Base.Sexp.t ‑> 'a t
val sexp_of_t : ('a ‑> Base.Sexp.t) ‑> 'a t ‑> Base.Sexp.t
val mem : 'a t ‑> 'a ‑> equal:('a ‑> 'a ‑> bool) ‑> bool
val length : 'a t ‑> int
val is_empty : 'a t ‑> bool
val iter : 'a t ‑> f:('a ‑> unit) ‑> unit
val fold : 'a t ‑> init:'accum ‑> f:('accum ‑> 'a ‑> 'accum) ‑> 'accum
val fold_result : 'a t ‑> init:'accum ‑> f:('accum ‑> 'a ‑> ('accum'eBase.Result.t) ‑> ('accum'eBase.Result.t
val fold_until : 'a t ‑> init:'accum ‑> f:('accum ‑> 'a ‑> ('accum'finalBase__.Container_intf.Continue_or_stop.t) ‑> finish:('accum ‑> 'final) ‑> 'final
val exists : 'a t ‑> f:('a ‑> bool) ‑> bool
val for_all : 'a t ‑> f:('a ‑> bool) ‑> bool
val sum : (module Base.Commutative_group.S with type t = 'sum) ‑> 'a t ‑> f:('a ‑> 'sum) ‑> 'sum
val find : 'a t ‑> f:('a ‑> bool) ‑> 'a option
val find_map : 'a t ‑> f:('a ‑> 'b option) ‑> 'b option
val to_list : 'a t ‑> 'a list
val to_array : 'a t ‑> 'a array
val min_elt : 'a t ‑> compare:('a ‑> 'a ‑> int) ‑> 'a option
val max_elt : 'a t ‑> compare:('a ‑> 'a ‑> int) ‑> 'a option
val (>>=) : 'a t ‑> ('a ‑> 'b t) ‑> 'b t
val (>>|) : 'a t ‑> ('a ‑> 'b) ‑> 'b t
val bind : 'a t ‑> f:('a ‑> 'b t) ‑> 'b t
val return : 'a ‑> 'a t
val join : 'a t t ‑> 'a t
val ignore_m : 'a t ‑> unit t
val all : 'a t list ‑> 'a list t
val all_unit : unit t list ‑> unit t
val all_ignore : unit t list ‑> unit t
  • Deprecated [since 2018-02] Use [all_unit]
val of_list : 'a t ‑> 'a t
val nth : 'a t ‑> int ‑> 'a option
val nth_exn : 'a t ‑> int ‑> 'a
val rev : 'a t ‑> 'a t
val rev_append : 'a t ‑> 'a t ‑> 'a t
val unordered_append : 'a t ‑> 'a t ‑> 'a t
val rev_map : 'a t ‑> f:('a ‑> 'b) ‑> 'b t
val fold_left : 'a t ‑> init:'b ‑> f:('b ‑> 'a ‑> 'b) ‑> 'b
val iter2_exn : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> unit) ‑> unit
val iter2 : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> unit) ‑> unit Or_unequal_lengths.t
val rev_map2_exn : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> 'c) ‑> 'c t
val rev_map2 : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> 'c) ‑> 'c t Or_unequal_lengths.t
val fold2_exn : 'a t ‑> 'b t ‑> init:'c ‑> f:('c ‑> 'a ‑> 'b ‑> 'c) ‑> 'c
val fold2 : 'a t ‑> 'b t ‑> init:'c ‑> f:('c ‑> 'a ‑> 'b ‑> 'c) ‑> 'c Or_unequal_lengths.t
val for_alli : 'a t ‑> f:(int ‑> 'a ‑> bool) ‑> bool
val for_all2_exn : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> bool) ‑> bool
val for_all2 : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> bool) ‑> bool Or_unequal_lengths.t
val existsi : 'a t ‑> f:(int ‑> 'a ‑> bool) ‑> bool
val exists2_exn : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> bool) ‑> bool
val exists2 : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> bool) ‑> bool Or_unequal_lengths.t
val filter : 'a t ‑> f:('a ‑> bool) ‑> 'a t
val rev_filter : 'a t ‑> f:('a ‑> bool) ‑> 'a t
val filteri : 'a t ‑> f:(int ‑> 'a ‑> bool) ‑> 'a t
val partition_map : 'a t ‑> f:('a ‑> [ `Fst of 'b | `Snd of 'c ]) ‑> 'b t * 'c t
val partition3_map : 'a t ‑> f:('a ‑> [ `Fst of 'b | `Snd of 'c | `Trd of 'd ]) ‑> 'b t * 'c t * 'd t
val partition_tf : 'a t ‑> f:('a ‑> bool) ‑> 'a t * 'a t
val split_n : 'a t ‑> int ‑> 'a t * 'a t
val sort : compare:('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a t
val stable_sort : compare:('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a t
val merge : 'a t ‑> 'a t ‑> compare:('a ‑> 'a ‑> int) ‑> 'a t
val hd : 'a t ‑> 'a option
val tl : 'a t ‑> 'a t option
val hd_exn : 'a t ‑> 'a
val tl_exn : 'a t ‑> 'a t
val findi : 'a t ‑> f:(int ‑> 'a ‑> bool) ‑> (int * 'a) option
val find_exn : 'a t ‑> f:('a ‑> bool) ‑> 'a
val find_map_exn : 'a t ‑> f:('a ‑> 'b option) ‑> 'b
val find_mapi : 'a t ‑> f:(int ‑> 'a ‑> 'b option) ‑> 'b option
val find_mapi_exn : 'a t ‑> f:(int ‑> 'a ‑> 'b option) ‑> 'b
val append : 'a t ‑> 'a t ‑> 'a t
val map : 'a t ‑> f:('a ‑> 'b) ‑> 'b t
val folding_map : 'a t ‑> init:'b ‑> f:('b ‑> 'a ‑> 'b * 'c) ‑> 'c t
val folding_mapi : 'a t ‑> init:'b ‑> f:(int ‑> 'b ‑> 'a ‑> 'b * 'c) ‑> 'c t
val fold_map : 'a t ‑> init:'b ‑> f:('b ‑> 'a ‑> 'b * 'c) ‑> 'b * 'c t
val fold_mapi : 'a t ‑> init:'b ‑> f:(int ‑> 'b ‑> 'a ‑> 'b * 'c) ‑> 'b * 'c t
val concat_map : 'a t ‑> f:('a ‑> 'b t) ‑> 'b t
val concat_mapi : 'a t ‑> f:(int ‑> 'a ‑> 'b t) ‑> 'b t
val map2_exn : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> 'c) ‑> 'c t
val map2 : 'a t ‑> 'b t ‑> f:('a ‑> 'b ‑> 'c) ‑> 'c t Or_unequal_lengths.t
val rev_map3_exn : 'a t ‑> 'b t ‑> 'c t ‑> f:('a ‑> 'b ‑> 'c ‑> 'd) ‑> 'd t
val rev_map3 : 'a t ‑> 'b t ‑> 'c t ‑> f:('a ‑> 'b ‑> 'c ‑> 'd) ‑> 'd t Or_unequal_lengths.t
val map3_exn : 'a t ‑> 'b t ‑> 'c t ‑> f:('a ‑> 'b ‑> 'c ‑> 'd) ‑> 'd t
val map3 : 'a t ‑> 'b t ‑> 'c t ‑> f:('a ‑> 'b ‑> 'c ‑> 'd) ‑> 'd t Or_unequal_lengths.t
val rev_map_append : 'a t ‑> 'b t ‑> f:('a ‑> 'b) ‑> 'b t
val fold_right : 'a t ‑> f:('a ‑> 'b ‑> 'b) ‑> init:'b ‑> 'b
val unzip : ('a * 'b) t ‑> 'a t * 'b t
val unzip3 : ('a * 'b * 'c) t ‑> 'a t * 'b t * 'c t
val zip : 'a t ‑> 'b t ‑> ('a * 'b) t option
val zip_exn : 'a t ‑> 'b t ‑> ('a * 'b) t
val mapi : 'a t ‑> f:(int ‑> 'a ‑> 'b) ‑> 'b t
val rev_mapi : 'a t ‑> f:(int ‑> 'a ‑> 'b) ‑> 'b t
val iteri : 'a t ‑> f:(int ‑> 'a ‑> unit) ‑> unit
val foldi : 'a t ‑> init:'b ‑> f:(int ‑> 'b ‑> 'a ‑> 'b) ‑> 'b
val reduce_exn : 'a t ‑> f:('a ‑> 'a ‑> 'a) ‑> 'a
val reduce : 'a t ‑> f:('a ‑> 'a ‑> 'a) ‑> 'a option
val reduce_balanced : 'a t ‑> f:('a ‑> 'a ‑> 'a) ‑> 'a option
val reduce_balanced_exn : 'a t ‑> f:('a ‑> 'a ‑> 'a) ‑> 'a
val group : 'a t ‑> break:('a ‑> 'a ‑> bool) ‑> 'a t t
val groupi : 'a t ‑> break:(int ‑> 'a ‑> 'a ‑> bool) ‑> 'a t t
val chunks_of : 'a t ‑> length:int ‑> 'a t t
val last : 'a t ‑> 'a option
val last_exn : 'a t ‑> 'a
val is_prefix : 'a t ‑> prefix:'a t ‑> equal:('a ‑> 'a ‑> bool) ‑> bool
val find_consecutive_duplicate : 'a t ‑> equal:('a ‑> 'a ‑> bool) ‑> ('a * 'a) option
val remove_consecutive_duplicates : ?⁠which_to_keep:[ `First | `Last ] ‑> 'a t ‑> equal:('a ‑> 'a ‑> bool) ‑> 'a t
val dedup_and_sort : compare:('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a t
val dedup : compare:('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a t
  • Deprecated [since 2017-04] Use [dedup_and_sort] instead
val find_a_dup : compare:('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a option
val contains_dup : compare:('a ‑> 'a ‑> int) ‑> 'a t ‑> bool
val find_all_dups : compare:('a ‑> 'a ‑> int) ‑> 'a t ‑> 'a list
val count : 'a t ‑> f:('a ‑> bool) ‑> int
val counti : 'a t ‑> f:(int ‑> 'a ‑> bool) ‑> int
val range : ?⁠stride:int ‑> ?⁠start:[ `exclusive | `inclusive ] ‑> ?⁠stop:[ `exclusive | `inclusive ] ‑> int ‑> int ‑> int t
val range' : compare:('a ‑> 'a ‑> int) ‑> stride:('a ‑> 'a) ‑> ?⁠start:[ `exclusive | `inclusive ] ‑> ?⁠stop:[ `exclusive | `inclusive ] ‑> 'a ‑> 'a ‑> 'a t
val init : int ‑> f:(int ‑> 'a) ‑> 'a t
val rev_filter_map : 'a t ‑> f:('a ‑> 'b option) ‑> 'b t
val rev_filter_mapi : 'a t ‑> f:(int ‑> 'a ‑> 'b option) ‑> 'b t
val filter_map : 'a t ‑> f:('a ‑> 'b option) ‑> 'b t
val filter_mapi : 'a t ‑> f:(int ‑> 'a ‑> 'b option) ‑> 'b t
val filter_opt : 'a option t ‑> 'a t
val sub : 'a t ‑> pos:int ‑> len:int ‑> 'a t
val take : 'a t ‑> int ‑> 'a t
val drop : 'a t ‑> int ‑> 'a t
val take_while : 'a t ‑> f:('a ‑> bool) ‑> 'a t
val drop_while : 'a t ‑> f:('a ‑> bool) ‑> 'a t
val split_while : 'a t ‑> f:('a ‑> bool) ‑> 'a t * 'a t
val concat : 'a t t ‑> 'a t
val concat_no_order : 'a t t ‑> 'a t
val cons : 'a ‑> 'a t ‑> 'a t
val cartesian_product : 'a t ‑> 'b t ‑> ('a * 'b) t
val permute : ?⁠random_state:Base.Random.State.t ‑> 'a t ‑> 'a t
val random_element : ?⁠random_state:Base.Random.State.t ‑> 'a t ‑> 'a option
val random_element_exn : ?⁠random_state:Base.Random.State.t ‑> 'a t ‑> 'a
val is_sorted : 'a t ‑> compare:('a ‑> 'a ‑> int) ‑> bool
val is_sorted_strictly : 'a t ‑> compare:('a ‑> 'a ‑> int) ‑> bool
val equal : 'a t ‑> 'a t ‑> equal:('a ‑> 'a ‑> bool) ‑> bool
val transpose : 'a t t ‑> 'a t t option
val transpose_exn : 'a t t ‑> 'a t t
val intersperse : 'a t ‑> sep:'a ‑> 'a t

Extensions

val stable_dedup : 'a t ‑> 'a t

stable_dedup Same as dedup but maintains the order of the list and doesn't allow compare function to be specified (otherwise, the implementation in terms of Set.t would hide a heavyweight functor instantiation at each call).

val stable_dedup_staged : compare:('a ‑> 'a ‑> Core_kernel__.Import.int) ‑> ('a Core_kernel__.Import.list ‑> 'a Core_kernel__.Import.list) Core_kernel__.Import.Staged.t

Only raised in exn_if_dup below.

  • Deprecated [since 2018-03] stop matching on Duplicate_found. [exn_if_dup] will eventually raise a different and unspecified exception
val exn_if_dup : compare:('a ‑> 'a ‑> Core_kernel__.Import.int) ‑> ?⁠context:Core_kernel__.Import.string ‑> 'a t ‑> to_sexp:('a ‑> Base.Sexp.t) ‑> Core_kernel__.Import.unit

exn_if_dup ~compare ?context t ~to_sexp raises if t contains a duplicate. It will specifically raise a Duplicate_found exception and use context as its second argument. O(n log n) time complexity.

val slice : 'a t ‑> Core_kernel__.Import.int ‑> Core_kernel__.Import.int ‑> 'a t

slice t start stop returns a new list including elements t.(start) through t.(stop-1), normalized Python-style with the exception that stop = 0 is treated as stop = length t.

include Core_kernel.Comparator.Derived with type t := a t
type 'a t
type 'cmp comparator_witness
include Core_kernel.Quickcheckable.S1 with type t := a t
type 'a gen
type 'a obs
type 'a shr
type 'a t
val gen : 'a gen ‑> 'a t gen
val obs : 'a obs ‑> 'a t obs
val shrinker : 'a shr ‑> 'a t shr
val to_string : f:('a ‑> Core_kernel__.Import.string) ‑> 'a t ‑> Core_kernel__.Import.string

Like gen, but never generates the empty list.

Like gen, but generates lists with the given length.

val gen_permutations : 'a t ‑> 'a t Core_kernel.Quickcheck.Generator.t

gen_permutations t generates all permutations of list. If t contains duplicate values, then gen_permutations t will produce duplicate lists.

include Extended_list

Extensions to Core.List.

val of_option : 'a option ‑> 'a list

of_option o returns a list that is empty if o is None, otherwise it is a singleton list. Useful to get filter_map-like behavior in the context of something like a concat_map.

val set_inter : 'a list ‑> 'a list ‑> 'a list

set_inter l1 l2 returns a list without duplicates of all elements of l1 that are in l2

val set_diff : 'a list ‑> 'a list ‑> 'a list

set_diff l1 l2 returns a list of all elements of l1 that are not in l2

val classify : ?⁠equal:('b ‑> 'b ‑> bool) ‑> f:('a ‑> 'b) ‑> 'a list ‑> ('b * 'a list) list

classify l ~equal ~f elements x and y of list l are assigned to the same class iff equal (f x) (f y) returns true. The default for equal is ( = )

val enumerate_from : int ‑> 'a list ‑> ('a * int) list

enumerate_from n xs returns a list of pairs constructed by pairing an incrementing counter, starting at n, with the elements of xs. e.g. enumerate_from 1 a,b,c = a,1; b,2; c,3

val map_accum : 'a list ‑> f:('b ‑> 'a ‑> 'b * 'c) ‑> init:'b ‑> 'b * 'c list

A combination of map and fold. Applies a function to each element of the input list, building up an accumulator, returning both the final state of the accumulator and a new list.

val max : ?⁠cmp:('a ‑> 'a ‑> int) ‑> 'a list ‑> 'a option
val min : ?⁠cmp:('a ‑> 'a ‑> int) ‑> 'a list ‑> 'a option
val max_exn : ?⁠cmp:('a ‑> 'a ‑> int) ‑> 'a list ‑> 'a
val min_exn : ?⁠cmp:('a ‑> 'a ‑> int) ‑> 'a list ‑> 'a
val lcs : 'a list ‑> 'a list ‑> 'a list

Find the longest common subsequence between two list.

Numbers the elements in a list by occurence:

[a;b;c;a;d] -> [(a,0);(b,0);(c,0);(a,1);(d,0)]

val number : 'a list ‑> ('a * int) list
val multimerge : 'a list list ‑> 'a list

Merges several list trying to keep the order in which the elements appear. The elements of the individual are not deduped.

multimerge [[a;b;d;a] [b;c;d]] -> [a;b;c;d;a]

val multimerge_unique : 'a list list ‑> 'a list
val square : ?⁠null:'v ‑> ('k * 'v) list list ‑> 'k list * 'v list list

Takes a list of `key*`value lists and returns a header * table_body body that is obtained by splitting the lists and re-ordering the terms (so that they all have the same header).

If null_value is not specified and the rows have different keys the function will raise an exception. square ~null [[(1,a_1);(2,b_1);(4,c_1)]; [(3,a_2)]; [(0,a_3);(1,b_3);(2,c_3);(3,d_3);(4,e_3)]] = ([0 ;1 ;2 ;3 ;4], [[null;a_1 ;b_1 ;null;c_1 ] [null;null;null;a_2 ;null] [a_3 ;b_3 ;c_3 ;d_3 ;e_3 ]])

val square_unique : ?⁠null:'v ‑> ?⁠equal:('k ‑> 'k ‑> bool) ‑> ('k * 'v) list list ‑> 'k list * 'v list list
val equal : equal:('a ‑> 'b ‑> bool) ‑> 'a list ‑> 'b list ‑> bool
val compare : ('a ‑> 'b ‑> int) ‑> 'a list ‑> 'b list ‑> int