Commit 85d39fbe authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Cleanup in Util

parent 9e8fa115
......@@ -98,16 +98,6 @@ module Array = struct
mmap fst a, mmap snd a
end
module List = struct
include List
let iteri f xs =
let rec loop i = function
| [] -> []
| x :: xs -> f i x :: loop (succ i) xs
in List.flatten (loop 0 xs)
end
module String = struct
include String
......
val ( |> ) : 'a -> ('a -> 'b) -> 'b
val ( =% ) : Z.t -> Z.t -> bool
module List : sig
include module type of List
val iteri : (int -> 'a -> 'b list) -> 'a list -> 'b list
end
module Array : sig
include module type of Array
val forall : ('a -> bool) -> 'a array -> bool
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment