Advertisement
Guest User

Untitled

a guest
Jan 19th, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.19 KB | None | 0 0
  1. percorre :: Int -> RTree a -> Maybe [a]
  2. percorre _ (R a []) = Nothing
  3. percorre list (R a subNode) = if (maximum list < length (subNode)) then Just (map((subNode)!!(list-1))) else Nothing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement