Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let rec get_min =
- | Br ( v, Lf, _ ) -> v
- | Br ( _, l, _ ) -> get_min(l);;
- let rec remove_min =
- | Br ( _, Lf, r ) -> r
- | Br ( v, l, r ) -> Br ( v, remove_min(l), r );;
- exception OraNemu;;
- let rec remove_id id =
- | Lf -> raise OraNemu
- | Br ((x,y), l, r) ->
- if x < id then Br((x,y), remove_id id l, r)
- elif x > id then Br((x,y), l, remove_id id r)
- else match (l,r) with
- | (Null, r) -> r
- | (l, Null) -> l
- | (l, r) -> Br(get_min r, l, remove_min r);;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement