Module BatTuple.Tuple4

module Tuple4: sig .. end

4-Tuples.

Author(s): Ashish Agarwal

type ('a, 'b, 'c, 'd) t = 'a * 'b * 'c * 'd

val make : 'a -> 'b -> 'c -> 'd -> 'a * 'b * 'c * 'd

val first : 'a * 'b * 'c * 'd -> 'a

val second : 'a * 'b * 'c * 'd -> 'b

val third : 'a * 'b * 'c * 'd -> 'c

val fourth : 'a * 'b * 'c * 'd -> 'd

val get12 : 'a * 'b * 'c * 'd -> 'a * 'b

val get13 : 'a * 'b * 'c * 'd -> 'a * 'c

val get14 : 'a * 'b * 'c * 'd -> 'a * 'd

val get23 : 'a * 'b * 'c * 'd -> 'b * 'c

val get24 : 'a * 'b * 'c * 'd -> 'b * 'd

val get34 : 'a * 'b * 'c * 'd -> 'c * 'd

val get123 : 'a * 'b * 'c * 'd -> 'a * 'b * 'c

val get124 : 'a * 'b * 'c * 'd -> 'a * 'b * 'd

val get234 : 'a * 'b * 'c * 'd -> 'b * 'c * 'd

val map : ('a -> 'e) ->
       ('b -> 'f) ->
       ('c -> 'g) -> ('d -> 'h) -> 'a * 'b * 'c * 'd -> 'e * 'f * 'g * 'h

val mapn : ('a -> 'b) -> 'a * 'a * 'a * 'a -> 'b * 'b * 'b * 'b

Like BatTuple.Tuple4.map but specialized for tuples with elements of the same type.

mapn f is equivalent to map f f f f.

val map1 : ('a -> 'e) -> 'a * 'b * 'c * 'd -> 'e * 'b * 'c * 'd

val map2 : ('b -> 'e) -> 'a * 'b * 'c * 'd -> 'a * 'e * 'c * 'd

val map3 : ('c -> 'e) -> 'a * 'b * 'c * 'd -> 'a * 'b * 'e * 'd

val map4 : ('d -> 'e) -> 'a * 'b * 'c * 'd -> 'a * 'b * 'c * 'e

val curry : ('a * 'b * 'c * 'd -> 'e) -> 'a -> 'b -> 'c -> 'd -> 'e

val uncurry : ('a -> 'b -> 'c -> 'd -> 'e) -> 'a * 'b * 'c * 'd -> 'e

val enum : 'a enumerable -> 'a BatEnum.t

val of_enum : 'a BatEnum.t -> 'a enumerable

Raises Failure if enum does not contain at least 4 elements.

val print : ?first:string ->
       ?sep:string ->
       ?last:string ->
       ('o BatIO.output -> 'a -> unit) ->
       ('o BatIO.output -> 'b -> unit) ->
       ('o BatIO.output -> 'c -> unit) ->
       ('o BatIO.output -> 'd -> unit) ->
       'o BatIO.output -> 'a * 'b * 'c * 'd -> unit

val printn : ?first:string ->
       ?sep:string ->
       ?last:string ->
       ('o BatIO.output -> 'a -> unit) ->
       'o BatIO.output -> 'a * 'a * 'a * 'a -> unit

val compare : ?cmp1:('a -> 'a -> int) ->
       ?cmp2:('b -> 'b -> int) ->
       ?cmp3:('c -> 'c -> int) ->
       ?cmp4:('d -> 'd -> int) -> 'a * 'b * 'c * 'd -> 'a * 'b * 'c * 'd -> int

include BatEnum.Enumerable

val eq : 'a BatOrd.eq ->
       'b BatOrd.eq -> 'c BatOrd.eq -> 'd BatOrd.eq -> ('a * 'b * 'c * 'd) BatOrd.eq

val ord : 'a BatOrd.ord ->
       'b BatOrd.ord ->
       'c BatOrd.ord -> 'd BatOrd.ord -> ('a * 'b * 'c * 'd) BatOrd.ord

val comp : 'a BatOrd.comp ->
       'b BatOrd.comp ->
       'c BatOrd.comp -> 'd BatOrd.comp -> ('a * 'b * 'c * 'd) BatOrd.comp

module Eq: functor (T1 : BatOrd.Eq) -> functor (T2 : BatOrd.Eq) -> functor (T3 : BatOrd.Eq) -> functor (T4 : BatOrd.Eq) -> Eq  with type t = T1.t * T2.t * T3.t * T4.t

module Ord: functor (T1 : BatOrd.Ord) -> functor (T2 : BatOrd.Ord) -> functor (T3 : BatOrd.Ord) -> functor (T4 : BatOrd.Ord) -> Ord  with type t = T1.t * T2.t * T3.t * T4.t

module Comp: functor (T1 : BatOrd.Comp) -> functor (T2 : BatOrd.Comp) -> functor (T3 : BatOrd.Comp) -> functor (T4 : BatOrd.Comp) -> Comp  with type t = T1.t * T2.t * T3.t * T4.t