SHARE
TWEET

Untitled

a guest Feb 25th, 2020 92 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. let rec btree_nb_nodes_arities t =
  3. match t with
  4. |Empty->(0,0,0)
  5. |Node(Empty, Empty)->(1,0,0)
  6. |Node(f,Empty)
  7. |Node(Empty,f)->let(a,b,c) = btree_nb_nodes_arities f
  8. |Node(l,r)->let(al,bl,cl) = btree_nb_nodes_arities l
  9. |Node(l,r)->let(ar,br,cr) = btree_nb_nodes_arities r
  10. in (al + ar, bl + br, 1+ cl + cr)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top