diff options
Diffstat (limited to 'lib/cArray.ml')
| -rw-r--r-- | lib/cArray.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/cArray.ml b/lib/cArray.ml index 7ffdeb6a15..05c8cc87c3 100644 --- a/lib/cArray.ml +++ b/lib/cArray.ml @@ -41,6 +41,7 @@ sig include S val compare : ('a -> 'a -> int) -> 'a array -> 'a array -> int val equal : ('a -> 'a -> bool) -> 'a array -> 'a array -> bool + val is_empty : 'a array -> bool val exists : ('a -> bool) -> 'a array -> bool val for_all : ('a -> bool) -> 'a array -> bool val for_all2 : ('a -> 'b -> bool) -> 'a array -> 'b array -> bool @@ -108,6 +109,8 @@ let equal cmp t1 t2 = (i = Array.length t1) || (cmp t1.(i) t2.(i) && aux (i + 1)) in aux 0 +let is_empty array = (Array.length array) = 0 + let exists f v = let rec exrec = function | -1 -> false |