simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-01-29 04:14:51 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix default implems of CCList.compare_length{s,_with}

Browse source
This commit is contained in:
Simon Cruanes 2017-12-24 17:22:02 +01:00
parent c12f2d2095
commit 17dc7bb5c3
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/core/CCList.ml
View file

@ -32,26 +32,26 @@ let rec find_opt p l = match l with
let rec compare_lengths l1 l2 = match l1, l2 with let rec compare_lengths l1 l2 = match l1, l2 with
| [], [] -> 0 | [], [] -> 0
| [], _::_ -> 1 | [], _::_ -> -1
| _::_, [] -> -1 | _::_, [] -> 1
| _::tail1, _::tail2 -> compare_lengths tail1 tail2 | _::tail1, _::tail2 -> compare_lengths tail1 tail2
(*$Q (*$Q
Q.(pair (list int) (list int)) (fun (l1,l2) -> \ Q.(pair (list int) (list int)) (fun (l1,l2) -> \
CCOrd.equiv (compare_lengths l1 l2) \ CCOrd.equiv (CCList.compare_lengths l1 l2) \
(Pervasives.compare (length l1)(length l2))) (CCInt.compare (length l1)(length l2)))
*) *)
let rec compare_length_with l n = match l, n with let rec compare_length_with l n = match l, n with
| _ when n<0 -> -1 | _ when n<0 -> 1
| [], 0 -> 0 | [], 0 -> 0
| [], _ -> 1 | [], _ -> -1
| _::tail, _ -> compare_length_with tail (n-1) | _::tail, _ -> compare_length_with tail (n-1)
(*$Q (*$Q
Q.(pair (list int) small_nat) (fun (l,n) -> \ Q.(pair (list int) small_int) (fun (l,n) -> \
CCOrd.equiv (compare_length_with l n) \ CCOrd.equiv (CCList.compare_length_with l n) \
(Pervasives.compare (length l)n)) (CCInt.compare (length l) n))
*) *)
let rec assoc_opt x = function let rec assoc_opt x = function