simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 11:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

replace array functions by loops

Browse source
This commit is contained in:
Simon Cruanes 2013-10-20 21:17:09 +02:00
parent cd1cbc50be
commit 0e16d544d5
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
sequence.ml
View file

@ -435,16 +435,23 @@ let to_array seq =
a a
end end
let of_array a = from_iter (fun k -> Array.iter k a) let of_array a =
fun k ->
for i = 0 to Array.length a - 1 do
k (Array.unsafe_get a i)
done
let of_array_i a = let of_array_i a =
let seq k = fun k ->
for i = 0 to Array.length a - 1 do k (i, a.(i)) done for i = 0 to Array.length a - 1 do
in from_iter seq k (i, Array.unsafe_get a i)
done
let of_array2 a = let of_array2 a =
fun k -> fun k ->
for i = 0 to Array.length a - 1 do k i a.(i) done for i = 0 to Array.length a - 1 do
k i (Array.unsafe_get a i)
done
(** [array_slice a i j] Sequence of elements whose indexes range (** [array_slice a i j] Sequence of elements whose indexes range
from [i] to [j] *) from [i] to [j] *)