From 8b0bab9313d9b26e6c9f132e82473b4db9a4832d Mon Sep 17 00:00:00 2001
From: filliatr
Date: Wed, 9 May 2001 14:37:42 +0000
Subject: nettoyage extraction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1737 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml  | 4 ++++
 lib/util.mli | 1 +
 2 files changed, 5 insertions(+)

(limited to 'lib')

diff --git a/lib/util.ml b/lib/util.ml
index cd32737d2e..0c3c038dd2 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -434,6 +434,10 @@ let iterate f =
 
 let repeat n f x =
   for i = 1 to n do f x done
+
+let iterate_for a b f x =
+  let rec iterate i v = if i > b then v else iterate (succ i) (f i v) in
+  iterate a x
  
 (* Misc *)
 
diff --git a/lib/util.mli b/lib/util.mli
index 5122df3e89..d5976baf1d 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -130,6 +130,7 @@ val matrix_transpose : 'a list list -> 'a list list
 val compose : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b
 val iterate : ('a -> 'a) -> int -> 'a -> 'a
 val repeat : int -> ('a -> unit) -> 'a -> unit
+val iterate_for : int -> int -> (int -> 'a -> 'a) -> 'a -> 'a
 
 (*s Misc. *)
 
-- 
cgit v1.2.3