blob: 20b995646e77435b58501e8f18f562625b59e29a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
namespace Common
type Vec2 =
| Vec2 of int * int
static member zero = Vec2(0, 0)
static member (+)(Vec2 (x1, y1), Vec2 (x2, y2)) = Vec2(x1 + x2, y1 + y2)
static member (-)(Vec2 (x1, y1), Vec2 (x2, y2)) = Vec2(x1 - x2, y1 - y2)
static member apply f (Vec2 (x, y)) = Vec2(f x, f y)
static member sign = Vec2.apply sign
static member chebyshevDist (Vec2 (x1, y1)) (Vec2 (x2, y2)) = max (abs <| x2 - x1) (abs <| y2 - y1)
|
