diff options
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 1d020b516..eca6e9885 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -513,6 +513,8 @@ let matrix_transpose mat = (* Functions *) +let identity x = x + let compose f g x = f (g x) let iterate f = diff --git a/lib/util.mli b/lib/util.mli index 50367f69a..03062e868 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -151,6 +151,7 @@ val matrix_transpose : 'a list list -> 'a list list (*s Functions. *) +val identity : 'a -> 'a val compose : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b val iterate : ('a -> 'a) -> int -> 'a -> 'a val repeat : int -> ('a -> unit) -> 'a -> unit |