Guest User

Untitled

a guest
Jan 19th, 2019
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.16 KB | None | 0 0
  1. let rec name nom newname liste =
  2. match liste with
  3. |[] -> []
  4. |(x,a)::l when x = nom -> add (newname,a) l
  5. |(x,a)::l ->(x,a):: name nom newname l;;
Add Comment
Please, Sign In to add comment