From 57035d465f81d2e1a57292d92276f863ff88af9a Mon Sep 17 00:00:00 2001 From: Thomas Voss Date: Wed, 18 Dec 2024 13:10:22 +0100 Subject: Make changes to the interpreter --- 2019/05/puzzles.lisp | 25 ++++++++++++++++++------- 1 file changed, 18 insertions(+), 7 deletions(-) (limited to '2019/05/puzzles.lisp') diff --git a/2019/05/puzzles.lisp b/2019/05/puzzles.lisp index 1d42479..c358e5a 100644 --- a/2019/05/puzzles.lisp +++ b/2019/05/puzzles.lisp @@ -2,10 +2,21 @@ (load "../interpreter.lisp") -(format t "~d~%" (car (last (intcode:run (intcode:parse "input") - ;; START PART 1 - '(1) - ;; END PART 1 START PART 2 - '(5) - ;; END PART 2 - )))) \ No newline at end of file +(defun main (filename) + (let ((stdin (make-string-input-stream + ;; START PART 1 + "1" + ;; END PART 1 START PART 2 + "5" + ;; END PART 2 + )) + (stdout (make-string-output-stream))) + (intcode:run (intcode:parse "input") stdin stdout) + (parse-integer (last-line (get-output-stream-string stdout))))) + +(defun last-line (string) + (let* ((nl-e (position #\Newline string :from-end t)) + (nl-b (position #\Newline string :from-end t :end nl-e))) + (subseq string (1+ (or nl-b -1)) nl-e))) + +(format t "~d~%" (main "input")) \ No newline at end of file -- cgit v1.2.3