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

style edit

Browse source
This commit is contained in:
Simon Cruanes 2018-10-08 20:48:02 -05:00
parent 1e21784ce1
commit e22a55668d
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/core/CCList.ml
View file

@ -383,11 +383,11 @@ let count f l =
*)
let count_true_false p l =
fold_left (fun (ok, ko) x ->
if p x then (ok + 1, ko)
else (ok, ko + 1)
) (0, 0) l
fold_left
(fun (ok, ko) x ->
if p x then ok + 1, ko
else ok, ko + 1)
(0, 0) l
(*$T
count_true_false (fun x -> x mod 2 = 0) [] = (0, 0)
count_true_false (fun x -> x mod 2 = 0) [0; 0; 2; 4] = (4, 0)