blob: 28eb32d9875ba34c65969847d0c7762dd4834b92 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!/usr/bin/sbcl --script
(load "../interpreter.lisp")
(defun main (filename)
(let ((stdout (make-string-output-stream)))
(intcode:run (intcode:parse "input") nil stdout :initial-arguments
;; START PART 1
'(1)
;; END PART 1 START PART 2
'(5)
;; END PART 2
)
(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"))
|
