From 35e57f6e59423272fd4a45b2535c369cb61182b5 Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Wed, 18 Dec 2024 20:37:45 +0100 Subject: Add 2019 day 13 solutions --- 2019/13/puzzle-2.lisp | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100755 2019/13/puzzle-2.lisp (limited to '2019/13/puzzle-2.lisp') diff --git a/2019/13/puzzle-2.lisp b/2019/13/puzzle-2.lisp new file mode 100755 index 0000000..66dd33d --- /dev/null +++ b/2019/13/puzzle-2.lisp @@ -0,0 +1,33 @@ +#!/usr/bin/sbcl --script + +(load "../interpreter.lisp") + +(defun sign (x) + (cond ((minusp x) -1) + ((plusp x) +1) + (:else 0))) + +(defun main (filename) + (let ((program (intcode:parse filename)) + (part 0) score + ball-x paddle-x + msg-x msg-y msg-z) + (setf (aref program 0) 2) + (intcode:run + program + (lambda () + (sign (- ball-x paddle-x))) + (lambda (msg) + (ecase part + (0 (setq msg-x msg)) + (1 (setq msg-y msg)) + (2 (case msg + (3 (setq paddle-x msg-x)) + (4 (setq ball-x msg-x)) + (otherwise + (when (and (= msg-x -1) (= msg-y 0)) + (setq score msg)))))) + (setq part (mod (1+ part) 3)))) + score)) + +(format t "~d~%" (main "input")) \ No newline at end of file -- cgit v1.2.3