blob: 66dd33d0a4b829bd55d6b52c346bd5c697a72021 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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"))
|
