diff options
Diffstat (limited to 'lib/util.ml')
| -rw-r--r-- | lib/util.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 5e10091e3f..44b5ef08fa 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -322,6 +322,11 @@ let array_last v = let array_cons e v = Array.append [|e|] v +let array_fold_left_i f v a = + let n = Array.length a in + let rec fold i v = if i = n then v else fold (succ i) (f i v a.(i)) in + fold 0 v + let array_fold_left2 f a v1 v2 = let lv1 = Array.length v1 in let rec fold a n = |