2019/07/machine.lisp


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/sbcl --script

(load "../interpreter.lisp")

(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)))