package travesty
Install
Dune Dependency
Authors
Maintainers
Sources
sha256=49d43ea0e9cef32d493fcc1561fc7480c55d9a2490700e487f4d5c3aff562d61
sha512=1cd77071adfb4583d0fcd27469b97bc64b7278761949aaaf415768aec14f6a1243e14575155c75033a5141a0320b4f56687381dc2bc56432a5ea63ea8613d968
doc/travesty.base_exts/Travesty_base_exts/Or_error/On_ok/index.html
Module Or_error.On_ok
Source
On_ok
is shorthand for Traverse1_left
on this module.
module On
(M : Base.Applicative.S) :
Travesty.Traversable_types.S1_on_applicative
with type 'a t := 'a t
and module M := M
On
implements applicative folding and mapping operators for a given applicative M
, including arity-1 specific operators.
module On_monad
(M : Base.Monad.S) :
Travesty.Traversable_types.S1_on_monad
with type 'a t := 'a t
and module M := M
On_monad
implements applicative folding and mapping operators for a given monad M
, including arity-1 specific operators.
module With_errors :
Travesty.Traversable_types.S1_on_monad
with type 'a t := 'a t
and module M := Base.Or_error
With_errors
is shorthand for On_monad (Or_error)
.
include Travesty.Traversable_types.Generic
with type 'a t := 'a t
and type 'a elt := 'a
and module On := On
and module On_monad := On_monad
and module With_errors := With_errors
include Travesty.Generic_types.Generic
with type 'a t := 'a t
with type 'a elt := 'a
We can do generic container operations.
include Base.Container.Generic with type 'a t := 'a t and type 'a elt := 'a
We can do non-applicative mapping operations.
include Travesty.Mappable_types.Generic
with type 'a t := 'a t
and type 'a elt := 'a
Generic
refers to the container type as 'a t
, and the element type as 'a elt
; substitute t
/elt
(arity-0) or 'a t
/'a
(arity-1) accordingly below.
include Travesty.Generic_types.Generic
with type 'a t := 'a t
with type 'a elt := 'a
fold_map c ~f ~init
folds f
over every t
in c
, threading through an accumulator with initial value init
.
include Travesty.Mappable_types.S1_container with type 'a t := 'a t
include Travesty.Mappable_types.S1 with type 'a t := 'a t
include Travesty.Mappable_types.Generic
with type 'a t := 'a t
and type 'a elt := 'a
Generic
refers to the container type as 'a t
, and the element type as 'a elt
; substitute t
/elt
(arity-0) or 'a t
/'a
(arity-1) accordingly below.
include Travesty.Generic_types.Generic
with type 'a t := 'a t
with type 'a elt := 'a
include Base.Container.S1 with type 'a t := 'a t
Checks whether the provided element is there, using equal
.
fold t ~init ~f
returns f (... f (f (f init e1) e2) e3 ...) en
, where e1..en
are the elements of t
val fold_result :
'a t ->
init:'accum ->
f:('accum -> 'a -> ('accum, 'e) Base.Result.t) ->
('accum, 'e) Base.Result.t
fold_result t ~init ~f
is a short-circuiting version of fold
that runs in the Result
monad. If f
returns an Error _
, that value is returned without any additional invocations of f
.
val fold_until :
'a t ->
init:'accum ->
f:('accum -> 'a -> ('accum, 'final) Base.Container.Continue_or_stop.t) ->
finish:('accum -> 'final) ->
'final
fold_until t ~init ~f ~finish
is a short-circuiting version of fold
. If f
returns Stop _
the computation ceases and results in that value. If f
returns Continue _
, the fold will proceed. If f
never returns Stop _
, the final result is computed by finish
.
Example:
type maybe_negative =
| Found_negative of int
| All_nonnegative of { sum : int }
(** [first_neg_or_sum list] returns the first negative number in [list], if any,
otherwise returns the sum of the list. *)
let first_neg_or_sum =
List.fold_until ~init:0
~f:(fun sum x ->
if x < 0
then Stop (Found_negative x)
else Continue (sum + x))
~finish:(fun sum -> All_nonnegative { sum })
;;
let x = first_neg_or_sum [1; 2; 3; 4; 5]
val x : maybe_negative = All_nonnegative {sum = 15}
let y = first_neg_or_sum [1; 2; -3; 4; 5]
val y : maybe_negative = Found_negative -3
Returns true
if and only if there exists an element for which the provided function evaluates to true
. This is a short-circuiting operation.
Returns true
if and only if the provided function evaluates to true
for all elements. This is a short-circuiting operation.
Returns the number of elements for which the provided function evaluates to true.
val sum :
(module Base.Container.Summable with type t = 'sum) ->
'a t ->
f:('a -> 'sum) ->
'sum
Returns the sum of f i
for all i
in the container.
Returns as an option
the first element for which f
evaluates to true.
Returns the first evaluation of f
that returns Some
, and returns None
if there is no such element.
Returns a minimum (resp maximum) element from the collection using the provided compare
function, or None
if the collection is empty. In case of a tie, the first element encountered while traversing the collection is returned. The implementation uses fold
so it has the same complexity as fold
.
include Travesty.Mappable_types.Extensions1 with type 'a t := 'a t
Extensions1
includes the container extensions from Container_exts
, as they work with any arity-1 container.
include Travesty.Container_exts_types.S1 with type 'a t := 'a t
include Travesty.Container_exts_types.Generic
with type 'a t := 'a t
and type 'a elt := 'a
Generic
refers to the container type as 'a t
, and the element type as 'a elt
; substitute t
/elt
(arity-0) or 'a t
/'a
(arity-1) accordingly below.
include Travesty.Generic_types.Generic
with type 'a t := 'a t
with type 'a elt := 'a
Testing for a specific number of elements
The following functions help in checking whether a container has a particular, commonly-required number of elements (zero or one, one, two, and so on).
at_most_one xs
returns Ok None
if xs
is empty; Ok Some(x)
if it contains only x
; and an error otherwise.
Examples (using an extended version of List):
(* ok None *)
List.at_most_one []
(* ok (Some 1) *)
List.at_most_one [1]
(* error -- too many *)
List.at_most_one [1; 2]
one xs
returns Ok x
if xs
contains only x
, and an error otherwise.
Examples (using an extended version of List):
(* error -- not enough *)
List.one []
(* ok 1 *)
List.one [1]
(* error -- too many *)
List.one [1; 2]
two xs
returns Ok (x, y)
if xs
is a list containing only x
and y
in that order, and an error otherwise.
Examples (using an extended version of List):
(* error -- not enough *)
List.two []
(* error -- not enough *)
List.two [1]
(* ok (1, 2) *)
List.two [1; 2]
(* error -- too many *)
List.two [1; 2; 3]
Miscellaneous extensions
Predicate extensions are available on all arity-1 containers, provided that we fix the element type parameter to 'a -> bool
.
include Travesty.Container_exts_types.Generic_predicate
with type 'a t := ('a -> Base.bool) t
and type 'a item := 'a
any x ~predicates
tests x
against predicates
until one returns true
, in which case it returns true
; or all return false
, in which case it returns false
.
any x ~predicates
tests x
against predicates
until one returns false
, in which case it returns false
; or all return true
, in which case it returns true
.
right_pad ~padding xs
pads every list in xs with padding
, ensuring all lists have equal length.
Example:
right_pad ~padding:6
[ [0; 8; 0; 0] (* [ [ 0; 8; 0; 0; 6 ] *)
; [9; 9; 9] (* ; [ 9; 9; 9; 6; 6 ] *)
; [8; 8; 1; 9; 9] (* ; [ 8; 8; 1; 9; 9 ] *)
; [9; 1; 1; 9] (* ; [ 9; 1; 1; 9; 6 ] *)
; [7; 2; 5] (* ; [ 7; 2; 5; 6; 6 ] *)
; [3] (* ; [ 3; 6; 6; 6; 6 ] *) ]
(* ] *)