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

add regression test for #364

Browse source
This commit is contained in:
Simon Cruanes 2021-04-15 17:54:18 -04:00
parent 5611cbf7f3
commit b19cd0db5f
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/data/CCRAL.ml
View file

@ -121,6 +121,10 @@ let rec _remove prefix l i =
let remove l i = _remove [] l i let remove l i = _remove [] l i
(*$= & ~printer:Q.Print.(list int)
[1;2;4] (to_list @@ remove (of_list [1;2;3;4]) 2)
*)
let rec _map_tree f t = match t with let rec _map_tree f t = match t with
| Leaf x -> Leaf (f x) | Leaf x -> Leaf (f x)
| Node (x, l, r) -> Node (f x, _map_tree f l, _map_tree f r) | Node (x, l, r) -> Node (f x, _map_tree f l, _map_tree f r)