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

CCFun.id and const

Browse source
This commit is contained in:
Simon Cruanes 2014-05-20 17:43:56 +02:00
parent d9ccb619a1
commit 48839be132
2 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
core/CCFun.ml
View file

@ -34,6 +34,10 @@ let flip f x y = f y x
let curry f x y = f (x,y) let curry f x y = f (x,y)
let id x = x
let const x _ = x
let uncurry f (x,y) = f x y let uncurry f (x,y) = f x y
let (%>) = compose let (%>) = compose

6
core/CCFun.mli
View file

@ -35,6 +35,12 @@ val compose : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c
val (%>) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c val (%>) : ('a -> 'b) -> ('b -> 'c) -> 'a -> 'c
(** Alias to [compose] *) (** Alias to [compose] *)
val id : 'a -> 'a
(** Identity function *)
val const : 'a -> 'b -> 'a
(** [const x y = x] for any [y] *)
val flip : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c val flip : ('a -> 'b -> 'c) -> 'b -> 'a -> 'c
(** flip arguments *) (** flip arguments *)