22 lines
506 B
Racket
22 lines
506 B
Racket
#lang racket/base
|
|
|
|
(require "../intcode.rkt")
|
|
|
|
(module+ test
|
|
(require rackunit))
|
|
|
|
(define (part1 filename)
|
|
(define program (parse-file filename))
|
|
(define vm (execute (start-machine program '(1))))
|
|
(car (machine-outputs vm)))
|
|
|
|
(module+ test
|
|
(check-equal? (part1 "input.txt") 12896948))
|
|
|
|
(define (part2 filename)
|
|
(define program (parse-file filename))
|
|
(define vm (execute (start-machine program '(5))))
|
|
(car (machine-outputs vm)))
|
|
|
|
(module+ test
|
|
(check-equal? (part2 "input.txt") 7704130))
|