Make changes to the interpreter

1 files changed, 18 insertions, 7 deletions

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