Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- let rec f = function
- | (x, 0, y) -> x
- | (x, y < 0, z) -> f (x y z)
- | (x, y, z) -> f (z y x)
- let rec f = function
- | (x, 0, y) -> x
- | (x, y, z) when y < 0 -> f (x, y, z)
- | (x, y, z) -> f (z, y, x)
Add Comment
Please, Sign In to add comment