32 lines
521 B
Standard ML
32 lines
521 B
Standard ML
(* vim: set ts=2 sw=2 et : *)
|
|
type t = int * int
|
|
|
|
let zero = (0, 0);;
|
|
|
|
let ( + ) x y =
|
|
let (xa, xb) = x
|
|
and (ya, yb) = y
|
|
in (xa + ya, xb + yb)
|
|
;;
|
|
|
|
let ( - ) x y =
|
|
let (xa, xb) = x
|
|
and (ya, yb) = y
|
|
in (xa + ya, xb + yb)
|
|
;;
|
|
|
|
let ( * ) x y =
|
|
let (xa, xb) = x
|
|
and (ya, yb) = y
|
|
in (xa * ya, xb * yb)
|
|
;;
|
|
|
|
let dot x y =
|
|
let (xa, xb) = x
|
|
and (ya, yb) = y
|
|
in
|
|
let na = xa * yb
|
|
and nb = xb * ya
|
|
in ( na, nb )
|
|
;;
|