OpenE2K
/
rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add an arr_iter2 function to common.ml

This commit is contained in:
Patrick Walton 2010-07-02 18:01:58 -07:00
parent 50e75e049b
commit 667d46bef9
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/boot/util/common.ml
View File

@ -430,6 +430,11 @@ let arr_map2 (f:'a -> 'b -> 'c) (a:'a array) (b:'b array) : 'c array =
Array.init (Array.length a) (fun i -> f a.(i) b.(i))
;;
let arr_iter2 (f:'a -> 'b -> unit) (a:'a array) (b:'b array) : unit =
assert ((Array.length a) = (Array.length b));
Array.iteri (fun i a_elem -> f a_elem b.(i)) a
;;
let arr_for_all (f:int -> 'a -> bool) (a:'a array) : bool =
let len = Array.length a in
let rec loop i =