diff options
Diffstat (limited to '2019/07/machine.lisp')
| -rwxr-xr-x | 2019/07/machine.lisp | 9 |
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 |