diff options
Diffstat (limited to 'lib/AdventOfCode/Utils.rakumod~')
-rw-r--r-- | lib/AdventOfCode/Utils.rakumod~ | 64 |
1 files changed, 0 insertions, 64 deletions
diff --git a/lib/AdventOfCode/Utils.rakumod~ b/lib/AdventOfCode/Utils.rakumod~ deleted file mode 100644 index d55a045..0000000 --- a/lib/AdventOfCode/Utils.rakumod~ +++ /dev/null @@ -1,64 +0,0 @@ -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..*] - } -} |