Guest User

Untitled

a guest
Oct 22nd, 2017
72
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 appartient x l =
  2. match l with
  3. |[]->false
  4. |a::ll when a=x -> true
  5. |a:ll -> appartient x ll;;
Add Comment
Please, Sign In to add comment