Commit dd62940d authored by POTTIER Francois's avatar POTTIER Francois

Removed [Misc.repeat].

parent ab582110
......@@ -74,12 +74,6 @@ let rec truncate k xs =
let truncate k xs =
if List.length xs <= k then xs else truncate k xs
let repeat k x =
let rec loop k x accu =
if k = 0 then accu else loop (k - 1) x (x :: accu)
in
loop k x []
module IntSet = Set.Make (struct
type t = int
let compare = ( - )
......
(* TEMPORARY tidy up, comment, remove dead code *)
(* Converting an option to a string, with [None] converted
to the empty string. *)
......@@ -57,10 +55,6 @@ val tabulateo: ('a -> int) -> ((unit -> 'a -> unit) -> unit -> unit) -> int -> (
val truncate: int -> 'a list -> 'a list
(* A list of repeated elements. *)
val repeat: int -> 'a -> 'a list
(* Reverse function application. *)
val ( $$ ) : 'a -> ('a -> 'b) -> 'b
......
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