diff options
Diffstat (limited to '2019/05/puzzles.lisp')
| -rw-r--r-- | 2019/05/puzzles.lisp | 25 |
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 |