Commits
Comments (0)
Files changed (2)

+1 0Source/Adapton.mlpack

+77 0Source/Adapton/Types.ml
Source/Adapton/Types.ml
+module Tuple3 (A : Hashtbl.SeededHashedType) (B : Hashtbl.SeededHashedType) (C : Hashtbl.SeededHashedType) = struct
+ let equal ( a, b, c as x ) ( a', b', c' as x' ) = x == x'  A.equal a a' && B.equal b b' && C.equal c c'
+module Tuple4 (A : Hashtbl.SeededHashedType) (B : Hashtbl.SeededHashedType) (C : Hashtbl.SeededHashedType) (D : Hashtbl.SeededHashedType) = struct
+ let equal ( a, b, c, d as x ) ( a', b', c', d' as x' ) = x == x'  A.equal a a' && B.equal b b' && C.equal c c' && D.equal d d'
Source/Adapton.mlpack