Merge pull request #35 from ghulette/master

Added `for_each` and `for_eachi`

.gitignore

@@ -7,3 +7,4 @@ man/
 *.install
 .merlin
 .gh-pages
+_opam

src/Iter.ml

@@ -82,6 +82,10 @@ let iteri f seq =
        f !r x;
        incr r)
 
+let for_each seq f = iter f seq
+
+let for_eachi seq f = iteri f seq
+
 let fold f init seq =
   let r = ref init in
   seq (fun elt -> r := f !r elt);

src/Iter.mli

@@ -118,7 +118,19 @@ val iter : ('a -> unit) -> 'a t -> unit
     Basically [iter f seq] is just [seq f]. *)
 
 val iteri : (int -> 'a -> unit) -> 'a t -> unit
-(** Iterate on elements and their index in the iterator *)
+    (** Iterate on elements and their index in the iterator *)
+
+val for_each : 'a t -> ('a -> unit) -> unit
+(** Consume the iterator, passing all its arguments to the function.
+    [for_each seq f] is the same as [iter f seq], i.e., [iter] with
+    arguments reversed.
+    @since NEXT_RELEASE *)
+
+val for_eachi : 'a t -> (int -> 'a -> unit) -> unit
+(** Iterate on elements and their index in the iterator.
+    [for_eachi seq f] is the same as [iteri f seq], i.e., [iteri] with
+    arguments reversed.
+    @since NEXT_RELEASE *)
 
 val fold : ('a -> 'b -> 'a) -> 'a -> 'b t -> 'a
 (** Fold over elements of the iterator, consuming it *)
@@ -849,4 +861,3 @@ module IO : sig
     string -> Bytes.t t -> unit
   (** @since 0.5.4 *)
 end
-

src/IterLabels.mli

@@ -88,6 +88,18 @@ val iter : f:('a -> unit) -> 'a t -> unit
 val iteri : f:(int -> 'a -> unit) -> 'a t -> unit
 (** Iterate on elements and their index in the iterator *)
 
+val for_each : seq:'a t -> ('a -> unit) -> unit
+(** Consume the iterator, passing all its arguments to the function.
+    [for_each seq f] is the same as [iter f seq], i.e., [iter] with
+    arguments reversed.
+    @since NEXT_RELEASE *)
+
+val for_eachi : seq:'a t -> (int -> 'a -> unit) -> unit
+(** Iterate on elements and their index in the iterator.
+    [for_eachi seq f] is the same as [iteri f seq], i.e., [iteri] with
+    arguments reversed.
+    @since NEXT_RELEASE *)
+
 val fold : f:('a -> 'b -> 'a) -> init:'a -> 'b t -> 'a
 (** Fold over elements of the iterator, consuming it *)