dict-get, dict-set, set-nth

2020-12-01 15:48:36 -07:00
parent 4775ff41da
commit 48f0034123
3 changed files with 25 additions and 4 deletions
--- a/projects/advent-of-code/src/year2020/Solutions.kiss
+++ b/projects/advent-of-code/src/year2020/Solutions.kiss
@@ -30,9 +30,8 @@
    (deflocal :Map<Int,Int> numbersMap (new Map))
    (deflocal &mut pair null)
    (doFor number numbers
-        // TODO implement dict-set, dict-get, set-nth, and use them
-        (set (nth numbersMap number) (- sum number))
-        (let [requiredForPair (nth numbersMap number)]
+        (dict-set numbersMap number (- sum number))
+        (let [requiredForPair (dict-get numbersMap number)]
            (when (numbersMap.exists requiredForPair)
                (set pair (or pair [number requiredForPair])))))