Refactor the intcode machine

1 files changed, 7 insertions, 2 deletions

diff --git a/2019/07/machine.lisp b/2019/07/machine.lisp
index 798bbb8..64157c7 100755
--- a/2019/07/machine.lisp
+++ b/2019/07/machine.lisp
@@ -2,5 +2,10 @@
 
 (load "../interpreter.lisp")
 
-(intcode:run (intcode:parse "input") *standard-input* *standard-output*
-             :initial-arguments (mapcar #'parse-integer (cdr *posix-argv*)))
\ No newline at end of file
+(intcode:run (intcode:parse "input")
+             (lambda ()
+               (parse-integer
+                (if (rest *posix-argv*)
+                    (first (setf *posix-argv* (rest *posix-argv*)))
+                    (read-line))))
+             (lambda (x) (format t "~d~%" x)))
\ No newline at end of file