Solve AOC day 9

2020-12-10 17:56:34 -07:00
parent 1ae7bca8c2
commit 1b58b38806
5 changed files with 1033 additions and 0 deletions
--- a/projects/aoc/src/year2020/SummingTuples.kiss
+++ b/projects/aoc/src/year2020/SummingTuples.kiss
@@ -14,4 +14,16 @@
                pairThatSatisfies (pairWithSum requiredForTrio numbers)]
            (when pairThatSatisfies
                (return [number (nth pairThatSatisfies 0) (nth pairThatSatisfies 1)]))))
+    null)
+
+(defun contiguousSumTuple [sum :kiss.List<Int> numbers]
+    (doFor i (range numbers.length)
+        (deflocal &mut testSum (nth numbers i))
+        (doFor j (range (+ i 1) numbers.length)
+            (set testSum (+ testSum (nth numbers j)))
+            (cond 
+                ((= testSum sum)
+                    (return (numbers.slice i (+ j 1))))
+                ((> testSum sum)
+                    (break)))))
    null)