blob: d55a0451a1988d44225431467ce86f252665429d (
plain)
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
class Point {
has $.x = 0;
has $.y = 0;
method Str(--> Str) {
"Point ($.x, $.y)"
}
}
class Line {
has Point $.p;
has Point $.q;
}
sub intersection(Line $l1, Line $l2) is export {
my $a1 = $l1.q.y - $l1.p.y;
my $b1 = $l1.p.x - $l1.q.x;
my $c1 = $a1 * $l1.p.x + $b1 * $l1.p.y;
my $a2 = $l2.q.y - $l2.p.y;
my $b2 = $l2.p.x - $l2.q.x;
my $c2 = $a2 * $l2.p.x + $b2 * $l2.p.y;
my $delta = $a1 * $b2 - $a2 * $b1;
return Point.new(
:x(($b2 * $c1 - $b1 * $c2) / $delta),
:y(($a1 * $c2 - $a2 * $c1) / $delta)
)
}
sub manhattan-distance(Point $p, Point $q) {
abs($p.x - $q.x) + abs($p.y - $q.y)
}
class Wire {
has Point @.points;
submethod new(Str $input) {
my @movements = $input.split(',');
my @points;
for @movements -> $move {
if $move ~~ /$<direction> = [ <[ UDLR ]> ] $<size> = [ \d+]/ {
my $x = 0;
my $y = 0;
given $<direction> {
when "U" { $y += $<size>.Int }
when "D" { $y += -$<size>.Int }
when "L" { $x += -$<size>.Int }
when "R" { $x += $<size>.Int }
}
@points.append: Point.new(:$x, :$y);
}
}
self.bless(:@points);
}
method segments {
@.points[0..^*-1] Z @.points[1..*]
}
}
|
