2019-12-09 07:29:20 +00:00
|
|
|
#lang racket
|
|
|
|
|
|
|
|
|
|
(require "../lib.rkt"
|
|
|
|
|
"IntCode.rkt")
|
|
|
|
|
|
|
|
|
|
(define input
|
|
|
|
|
(string->program (car (problem-input 9))))
|
|
|
|
|
|
2019-12-09 21:09:16 +00:00
|
|
|
(define part1
|
|
|
|
|
(car (resume-with-io (exec input) '(1))))
|
2019-12-09 07:29:20 +00:00
|
|
|
|
2019-12-09 21:09:16 +00:00
|
|
|
(define part2
|
|
|
|
|
(car (resume-with-io (exec input) '(2))))
|
2019-12-09 07:29:20 +00:00
|
|
|
|
2019-12-09 21:09:16 +00:00
|
|
|
(show-solution part1 part2)
|
