simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 19:55:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add CCHash.combine{5,6}

Browse source
This commit is contained in:
Simon Cruanes 2018-02-21 10:21:36 -06:00
parent 22fce8e16f
commit fe16608524
2 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/core/CCHash.ml
View file

@ -21,6 +21,12 @@ let combine3 a b c =
let combine4 a b c d = let combine4 a b c d =
combine2 (combine2 a b) (combine2 c d) combine2 (combine2 a b) (combine2 c d)
let combine5 a b c d e =
combine2 (combine2 a b) (combine2 (combine2 c d) e)
let combine6 a b c d e f =
combine2 (combine2 a b) (combine2 (combine2 c d) (combine2 e f))
(** {2 Combinators} *) (** {2 Combinators} *)
let const h _ = h let const h _ = h

6
src/core/CCHash.mli
View file

@ -64,6 +64,12 @@ val combine2 : hash -> hash -> hash
val combine3 : hash -> hash -> hash -> hash val combine3 : hash -> hash -> hash -> hash
val combine4 : hash -> hash -> hash -> hash -> hash val combine4 : hash -> hash -> hash -> hash -> hash
val combine5 : hash -> hash -> hash -> hash -> hash -> hash
(** @since NEXT_RELEASE *)
val combine6 : hash -> hash -> hash -> hash -> hash -> hash -> hash
(** @since NEXT_RELEASE *)
(** {2 Iterators} *) (** {2 Iterators} *)
type 'a sequence = ('a -> unit) -> unit type 'a sequence = ('a -> unit) -> unit