Guest User

Untitled

a guest
Nov 23rd, 2017
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.11 KB | None | 0 0
  1. let rec f = function
  2. | (x, 0, y) -> x
  3. | (x, y < 0, z) -> f (x y z)
  4. | (x, y, z) -> f (z y x)
Add Comment
Please, Sign In to add comment