Solve AOC Day 10 pt 1

2020-12-10 18:57:54 -07:00
parent 8795595b1b
commit acd1289fe4
6 changed files with 133 additions and 1 deletions
--- a/projects/aoc/src/year2020/Solutions.kiss
+++ b/projects/aoc/src/year2020/Solutions.kiss
@@ -98,5 +98,14 @@
        [35 20 15 25 47 40 62 55 65 95 102 117 150 182 127 219 299 277 309 576]))))
    (let [tuple (SummingTuples.contiguousSumTuple 133015568 (Util.readInts "src/year2020/inputs/day9.txt"))]
        (assert (= 16107959 (+ (apply min tuple) (apply max tuple)))))
+
+    // Day 10
+    (let [adapters (Util.readInts "src/year2020/inputs/day10.txt")]
+        (.sort adapters Reflect.compare)
+        (adapters.unshift 0)
+        (adapters.push (+ 3 (last adapters)))
+        (let [diffs (Adapters.differences adapters)
+                dist (Adapters.distribution diffs)]
+            (assert (= 1998 (* (dictGet dist 1) (dictGet dist 3))))))
    )