+1

lib/desert/range_set.ml

reviewed

··· 47 47 S.empty 48 48 ;; 49 49 50 50 + let union a b = S.fold add a b 50 51 let of_list = List.fold_left (fun acc x -> add x acc) empty 51 52 let of_seq = Seq.fold_left (fun acc x -> add x acc) empty 52 53 let to_list = S.to_list

+1

lib/desert/range_set.mli

reviewed

··· 13 13 val singleton : elt -> t 14 14 val add : elt -> t -> t 15 15 val remove : elt -> t -> t 16 16 + val union : t -> t -> t 16 17 val of_list : elt list -> t 17 18 val of_seq : elt Seq.t -> t 18 19 val to_seq : t -> elt Seq.t