Advertisement
Guest User

Untitled

a guest
Sep 21st, 2017
45
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.10 KB | None | 0 0
  1. let rec size: 'a. 'a seq -> int = function
  2. | Nil -> 0
  3. | Cons (_, xs) -> 1 + 2 * (size xs)
  4. ;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement