From 8f35c2dc6516303ae0786d08cc7912ccb8218f78 Mon Sep 17 00:00:00 2001
From: Matias Linares <matiaslina@gmail.com>
Date: Tue, 10 Dec 2019 09:29:12 -0300
Subject: Initial commit

---
 lib/AdventOfCode/Day3.rakumod   | 24 +++++++++++++
 lib/AdventOfCode/Day3.rakumod~  |  3 ++
 lib/AdventOfCode/Utils.rakumod  | 78 +++++++++++++++++++++++++++++++++++++++++
 lib/AdventOfCode/Utils.rakumod~ | 64 +++++++++++++++++++++++++++++++++
 4 files changed, 169 insertions(+)
 create mode 100644 lib/AdventOfCode/Day3.rakumod
 create mode 100644 lib/AdventOfCode/Day3.rakumod~
 create mode 100644 lib/AdventOfCode/Utils.rakumod
 create mode 100644 lib/AdventOfCode/Utils.rakumod~

(limited to 'lib/AdventOfCode')

diff --git a/lib/AdventOfCode/Day3.rakumod b/lib/AdventOfCode/Day3.rakumod
new file mode 100644
index 0000000..46aac01
--- /dev/null
+++ b/lib/AdventOfCode/Day3.rakumod
@@ -0,0 +1,24 @@
+use AdventOfCode::Utils;
+
+sub minimum-distance($input1, $input2) {
+    my $wire1 = Wire.new($input1);
+    dd $wire1;
+    my $wire2 = Wire.new($input2);
+
+    for $wire1.lines -> $line1 {
+        for $wire2.lines -> $line2 {
+            if my $intersection = intersection($line1, $line2) {
+                say "Manhattan distance of intersection $intersection: " ~ manhattan-distance(
+                    Point.new, $intersection
+                );
+            }
+        }
+    }
+}
+
+sub MAIN('day3') is export(:main) {
+    minimum-distance(
+        "R8,U5,L5,D3",
+        "U7,R6,D4,L4"
+    );
+}
diff --git a/lib/AdventOfCode/Day3.rakumod~ b/lib/AdventOfCode/Day3.rakumod~
new file mode 100644
index 0000000..0952835
--- /dev/null
+++ b/lib/AdventOfCode/Day3.rakumod~
@@ -0,0 +1,3 @@
+sub MAIN() {
+    say "a"
+}
diff --git a/lib/AdventOfCode/Utils.rakumod b/lib/AdventOfCode/Utils.rakumod
new file mode 100644
index 0000000..9abedb8
--- /dev/null
+++ b/lib/AdventOfCode/Utils.rakumod
@@ -0,0 +1,78 @@
+class Point {
+    has Real $.x = 0;
+    has Real $.y = 0;
+
+    method Str(--> Str) {
+        try { "<$.x, $.y>" } or "undefined"
+    }
+}
+
+class Line {
+    has Point $.p;
+    has Point $.q;
+
+    multi method new(Point $p, Point $q) {
+        self.bless(:$p, :$q)
+    }
+
+    multi method new(Point :$p, Point :$q) {
+        self.bless(:$p, :$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) is export {
+    abs($p.x - $q.x) + abs($p.y - $q.y)
+}
+
+
+class Wire is export {
+    has Point @.points;
+
+    submethod new(Str $input) {
+        my @movements = $input.split(',');
+        my @points;
+        my $x = 0;
+        my $y = 0;
+
+        for @movements -> $move {
+            if $move ~~ /$<direction> = [ <[ UDLR ]> ] $<size> = [ \d+]/ {
+                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..*]
+    }
+
+    method lines {
+        gather for self.segments -> $s {
+            take Line.new($s[0], $s[1]);
+        }
+    }
+}
diff --git a/lib/AdventOfCode/Utils.rakumod~ b/lib/AdventOfCode/Utils.rakumod~
new file mode 100644
index 0000000..d55a045
--- /dev/null
+++ b/lib/AdventOfCode/Utils.rakumod~
@@ -0,0 +1,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..*]
+    }
+}
-- 
cgit v1.2.3-70-g09d2