Source file `point.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
type t = {x: int; y:int}

let compare {x=x1;y=y1} {x=x2;y=y2} =
  let xcomp = y1 - y2 in
  if xcomp<>0 then 
    xcomp
  else
    x1 - x2

let diff p1 p2 = {
  x = p1.x - p2.x; 
  y = p1.y - p2.y;
}

module Set =
    Set.Make(struct type nonrec t = t let compare = compare end)