src/2017/days/day-08.lisp @ 2848a4548adf
2023/01 and 2022/01 Also start porting my test data to the new account, since Twitter imploded and apparently it's impossible for a website to store a goddamn username and password in The Year of Our Lord 2023 so everyone just outsources auth all the time, ugh.
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Fri, 01 Dec 2023 11:05:43 -0500 |
| parents | 182bdd87fd9e |
| children | (none) |
(advent:defpackage* :advent/2017/08) (in-package :advent/2017/08) (defun == (x y) (= x y)) (defun != (x y) (/= x y)) (defun inc (delta) delta) (defun dec (delta) (- delta)) (define-problem (2017 8) (data read-lines) (5215 6419) (let ((registers (make-hash-table))) (macrolet ((r (register) `(gethash ,register registers 0))) (iterate (for line :in data) (for (reg op delta nil cmp-reg cmp-op cmp-bound) := (let ((*package* (find-package :advent/2017/08))) (read-all-from-string line))) (when (funcall cmp-op (r cmp-reg) cmp-bound) (maximizing (incf (r reg) (funcall op delta)) :into highest)) (finally (return (values (alexandria:extremum (alexandria:hash-table-values registers) #'>) highest)))))))