diff options
| author | ppedrot | 2012-09-18 14:26:42 +0000 |
|---|---|---|
| committer | ppedrot | 2012-09-18 14:26:42 +0000 |
| commit | 4422e16f529359bb96c7eee214b2b6648958ef48 (patch) | |
| tree | c8d77ca4070bcbc0ce2fc630564fedd9043fafed /lib/cList.ml | |
| parent | 7208928de37565a9e38f9540f2bfb1e7a3b877e6 (diff) | |
Cleaning interface of Util.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15817 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/cList.ml')
| -rw-r--r-- | lib/cList.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/cList.ml b/lib/cList.ml index 3e4c0a4b37..3a4a2f5669 100644 --- a/lib/cList.ml +++ b/lib/cList.ml @@ -66,6 +66,7 @@ sig (** [tabulate f n] builds [[f 0; ...; f (n-1)]] *) val tabulate : (int -> 'a) -> int -> 'a list + val interval : int -> int -> int list val make : int -> 'a -> 'a list val assign : 'a list -> int -> 'a -> 'a list val distinct : 'a list -> bool @@ -369,6 +370,12 @@ let tabulate f len = loop dummy 0; dummy.tail +let interval n m = + let rec interval_n (l,m) = + if n > m then l else interval_n (m::l, pred m) + in + interval_n ([], m) + let addn n v = let rec aux n l = if n = 0 then l |