simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes and format

Browse source
This commit is contained in:
Simon Cruanes 2024-11-15 11:02:38 -05:00
parent 8d8f1d4145
commit 6dcaddb7c6
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
4 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/core/CCListLabels.mli
View file

@ -529,6 +529,10 @@ val all_ok : ('a, 'err) result t -> ('a t, 'err) result
@since 1.3, but only @since 1.3, but only
@since 2.2 with labels *) @since 2.2 with labels *)
val split_result : ('ok, 'error) result list -> 'ok list * 'error list
(** Split a list of results into [Ok]s and [Error]s.
@since NEXT_RELEASE *)
val sorted_mem : cmp:(('a -> 'a -> int)[@keep_label]) -> 'a -> 'a list -> bool val sorted_mem : cmp:(('a -> 'a -> int)[@keep_label]) -> 'a -> 'a list -> bool
(** [sorted_mem ~cmp x l] and [mem x l] give the same result for any sorted list [l], (** [sorted_mem ~cmp x l] and [mem x l] give the same result for any sorted list [l],
but potentially more efficiently. but potentially more efficiently.

8
src/data/CCMultiSet.ml
View file

@ -247,17 +247,17 @@ module Make (O : Set.OrderedType) = struct
let pp ?(pp_start = fun _ () -> ()) ?(pp_stop = fun _ () -> ()) let pp ?(pp_start = fun _ () -> ()) ?(pp_stop = fun _ () -> ())
?(pp_sep = fun fmt () -> Format.fprintf fmt ",@ ") pp_x fmt m = ?(pp_sep = fun fmt () -> Format.fprintf fmt ",@ ") pp_x fmt m =
let rec pp_mult ?(first = true) x n = let rec pp_mult ?(first = true) x n =
if n = 0 then () if n = 0 then
()
else ( else (
if not first then pp_sep fmt (); if not first then pp_sep fmt ();
pp_x fmt x; pp_x fmt x;
pp_mult ~first:false x (n-1) pp_mult ~first:false x (n - 1)
) )
in in
pp_start fmt (); pp_start fmt ();
let first = ref true in let first = ref true in
iter m iter m (fun x n ->
(fun x n ->
if !first then if !first then
first := false first := false
else else