Initial commit

This commit is contained in:
Dimitri Lozeve 2024-11-12 21:43:32 +01:00
commit f242d2b0df
420 changed files with 62521 additions and 0 deletions

22
2019/day05/day05.rkt Normal file
View file

@ -0,0 +1,22 @@
#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))