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

Improve CCVector.equal

Browse source
This commit is contained in:
Fabian 2016-05-17 22:33:47 +02:00
parent 55cf10caf2
commit 22e07c5c5e
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/core/CCVector.ml
View file

@ -243,12 +243,22 @@ let append_list a b = match b with
*)
let equal eq v1 v2 =
let n = min v1.size v2.size in
v1.size == v2.size
&&
let n = v1.size in
let rec check i =
if i = n
then v1.size = v2.size
then true
else eq (get v1 i) (get v2 i) && check (i+1)
in check 0
in
check 0
(*$T
equal (=) (create ()) (create ())
equal (=) (return 42) (return 42)
not (equal (=) (create ()) (return 42))
not (equal (=) (return 42) (create ()))
*)
let compare cmp v1 v2 =
let n = min v1.size v2.size in