cow/aoc-2022
2
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

forgot cadr exists!!

Browse source
This commit is contained in:
cow 2022-12-06 02:57:58 -05:00
parent ac63b977ba
commit fe29d4dd32
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
elisp/day-2/solution.el
View file

@ -92,8 +92,8 @@
(string-split s " " t)) (string-split s " " t))
input))) input)))
(seq-reduce (lambda (acc row) (seq-reduce (lambda (acc row)
(let* ((their-shape (cdr (assoc (nth 0 row) solution-opponent-letter-to-shape-alist))) (let* ((their-shape (cdr (assoc (car row) solution-opponent-letter-to-shape-alist)))
(our-shape (cdr (assoc (nth 1 row) solution-player-letter-to-shape-alist))) (our-shape (cdr (assoc (cadr row) solution-player-letter-to-shape-alist)))
(outcome (solution-decide-game our-shape their-shape))) (outcome (solution-decide-game our-shape their-shape)))
(+ acc (+ acc
(cdr (assoc our-shape solution-shape-score-alist)) (cdr (assoc our-shape solution-shape-score-alist))
@ -106,8 +106,8 @@
(string-split s " " t)) (string-split s " " t))
input))) input)))
(seq-reduce (lambda (acc row) (seq-reduce (lambda (acc row)
(let* ((their-shape (cdr (assoc (nth 0 row) solution-opponent-letter-to-shape-alist))) (let* ((their-shape (cdr (assoc (car row) solution-opponent-letter-to-shape-alist)))
(desired-outcome (cdr (assoc (nth 1 row) solution-player-letter-to-outcome-alist))) (desired-outcome (cdr (assoc (cadr row) solution-player-letter-to-outcome-alist)))
(our-shape (solution-shape-for-outcome their-shape desired-outcome))) (our-shape (solution-shape-for-outcome their-shape desired-outcome)))
(+ acc (+ acc
(cdr (assoc our-shape solution-shape-score-alist)) (cdr (assoc our-shape solution-shape-score-alist))