Add 2019 day 13 solutions

1 files changed, 33 insertions, 0 deletions

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