blob: ce9ae2d14ea9ef2fc982e96ae38e211d74f958fd (
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
|
use lib <lib>;
use Utils;
class Point { has $.x; has $.y; method gist { "{$.x}×{$.y}" }}
class Fabric {
has $.left;
has $.top;
has $.width;
has $.height;
method points {
gather {
my @rx = $.left ..^ ($.left+$.width);
my @ry = ($.top) ..^ ($.top+$.height);
for @rx -> $x {
for @ry -> $y {
take "$x,$y";
}
}
}
}
}
sub infix:<ð>(Fabric $f1, Fabric $f2) {
say $f1.points;
say $f2.points;
say '';
my $a = set($f1.points);
my $b = set($f2.points);
say $a (&) $b;
}
sub pt1($data --> Int) {
my @fabric = $data.lines.map({
my $m = Day3.parse($_);
Fabric.new(
left => $m<position><left>,
top => $m<position><top>,
width => $m<size><width>,
height => $m<size><height>
)});
for @fabric.combinations(2) -> @f {
@f[0] ð @f[1]
}
return 0;
}
sub MAIN("test") {
my @data = q:to/E/;
#1 @ 1,3: 4x4
#2 @ 3,1: 4x4
#3 @ 5,5: 2x2
E
my $sq = pt1(@data);
die "Got $sq instead 4" if $sq != 4;
}
|
