Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- member x Nil = False
- member x (Node l y r)
- | x < y = member x l
- | otherwise = go x y r
- where
- go x y Nil = x == y
- go x y (Node l y' r)
- | x < y' = go x y l
- | otherwise = go x y' r
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement