Source file `tuple.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
module T2 = struct
  type ('a, 'b) t = 'a * 'b

  let to_dyn = Dyn.pair
  let equal f g (x1, y1) (x2, y2) = f x1 x2 && g y1 y2
  let hash f g (a, b) = Poly.hash (f a, g b)

  let compare f g (a1, b1) (a2, b2) =
    match f a1 a2 with
    | (Ordering.Lt | Gt) as x -> x
    | Eq -> g b1 b2
  ;;

  let swap (x, y) = y, x
end

module T3 = struct
  type ('a, 'b, 'c) t = 'a * 'b * 'c

  let to_dyn = Dyn.triple
  let hash f g h (a, b, c) = Poly.hash (f a, g b, h c)
  let equal f g h (a1, b1, c1) (a2, b2, c2) = f a1 a2 && g b1 b2 && h c1 c2
end