dimitri/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial commit

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

29
2019/day09/day09.rkt Normal file
View file

@ -0,0 +1,29 @@
#lang racket/base
(require "../intcode.rkt")
(module+ test
(require rackunit))
(define (part12 program input)
(define vm (execute (start-machine program (list input))))
(car (machine-outputs vm)))
(module+ test
(test-case "quine"
(define quine (parse "109,1,204,-1,1001,100,1,100,1008,100,16,101,1006,101,0,99"))
(define vm (execute (start-machine quine '())))
(check-true (machine-terminated vm))
(check-equal? (reverse (machine-outputs vm)) (vector->list quine)))
(test-case "16-digit number"
(define program (parse "1102,34915192,34915192,7,4,7,99,0"))
(define vm (execute (start-machine program '())))
(check-true (machine-terminated vm))
(check-equal? (string-length (number->string (car (machine-outputs vm)))) 16))
(test-case "large number"
(define program (parse "104,1125899906842624,99"))
(define vm (execute (start-machine program '())))
(check-true (machine-terminated vm))
(check-equal? (car (machine-outputs vm)) 1125899906842624))
(check-equal? (part12 (parse-file "input") 1) 3601950151)
(check-equal? (part12 (parse-file "input") 2) 64236))