Guest User

Untitled

a guest
Jan 17th, 2013
35
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
OCaml 0.39 KB | None | 0 0
  1. val dates0 = [(1984, 2, 1), (1984, 2, 1), (1984, 2, 1)]
  2. val dates1 = [(1984, 3, 1), (1984, 2, 1), (1984, 2, 1)]
  3. val dates3 = [(1984, 3, 1), (1984, 5, 1), (1984, 2, 1)]
  4. val dates4 = [(1984, 3, 1), (1984, 5, 1), (1984, 6, 1)]
  5.  
  6. number_in_month(dates0, 2) (* returns 3 *)
  7. number_in_month(dates1, 2) (* returns 2 *)
  8. number_in_month(dates2, 2) (* returns 1 *)
  9. number_in_month(dates3, 2) (* returns 0 *)
Advertisement
Add Comment
Please, Sign In to add comment