1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
import gleam/int
import gleam/list
import gleam/set.{Set}
pub type Pos =
#(Int, Int)
pub const zero = #(0, 0)
pub const directions8 = [
#(1, 0),
#(1, 1),
#(0, 1),
#(-1, 1),
#(-1, 0),
#(-1, -1),
#(0, -1),
#(1, -1),
]
pub fn add(p1: Pos, p2: Pos) -> Pos {
#(p1.0 + p2.0, p1.1 + p2.1)
}
pub fn sub(p1: Pos, p2: Pos) -> Pos {
#(p1.0 - p2.0, p1.1 - p2.1)
}
pub fn mul(p: Pos, by scalar: Int) -> Pos {
#(p.0 * scalar, p.1 * scalar)
}
pub fn neighbours8(p: Pos) -> Set(Pos) {
directions8
|> list.map(with: add(p, _))
|> set.from_list
}
pub fn manhattan_dist(from p1: Pos, to p2: Pos) -> Int {
int.absolute_value(p1.0 - p2.0) + int.absolute_value(p1.1 - p2.1)
}
pub fn rotate_around_origin(this p: Pos, by times: Int) -> Pos {
let assert Ok(sin) = list.at([0, -1, 0, 1], times)
let assert Ok(cos) = list.at([1, 0, -1, 0], times)
#(p.0 * cos - p.1 * sin, p.0 * sin + p.1 * cos)
}
|
