diff options
Diffstat (limited to 'src/tree/splay.ml')
-rw-r--r-- | src/tree/splay.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/tree/splay.ml b/src/tree/splay.ml index de7d441..dd1f65d 100644 --- a/src/tree/splay.ml +++ b/src/tree/splay.ml @@ -180,6 +180,11 @@ module Make (El : KEY) = struct _fold [] init !t end + let choose (T tree) = begin match (_subtree_minimum !tree) with + | Leaf -> raise Not_found + | Node (left, (key, value), right) -> C (key, value) + end + let repr formatter (T t) = begin let repr_edge from formatter dest = begin |