diff options
| author | Thomas Voss <mail@thomasvoss.com> | 2024-12-18 18:58:32 +0100 |
|---|---|---|
| committer | Thomas Voss <mail@thomasvoss.com> | 2024-12-18 18:58:32 +0100 |
| commit | aeeb7856d32a904d22c5f1cdeca443bb7fcd7e49 (patch) | |
| tree | 4aacd9f841f515254ed581970070b3e1aa72301f /2019/07 | |
| parent | 65beb3ea0223e693ac348c6133e496ada2b2352f (diff) | |
Refactor the intcode machine
Diffstat (limited to '2019/07')
| -rw-r--r-- | 2019/07/Makefile | 1 | ||||
| -rwxr-xr-x | 2019/07/machine.lisp | 9 |
2 files changed, 7 insertions, 3 deletions
diff --git a/2019/07/Makefile b/2019/07/Makefile deleted file mode 100644 index 5a21270..0000000 --- a/2019/07/Makefile +++ /dev/null @@ -1 +0,0 @@ -include ../../Makefiles/lisp.mk
\ No newline at end of file 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 |