Skip to content

Instantly share code, notes, and snippets.

@chomado

chomado/73.ml

Created April 25, 2013 22:25
Show Gist options
  • Save chomado/5463742 to your computer and use it in GitHub Desktop.
Save chomado/5463742 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
73.ml
(* taisho x : float * float -> float * float *)
let taisho_x point = match point with
(x, y) -> (x, -. y)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment