gistfile1.ml

let vec_map f (x1, y1) (x2, y2) =
  f x1 x2, f y1 y2

let (|+) = vec_map (+.)

let (|-) = vec_map (-.)

let (|*) s (x, y) =
  s *. x, s *. y

let length (x, y) =
  sqrt (x**2. +. y**2.)

let distance a b =
  length (b |- a)