Day 23 manually lmao

This commit is contained in:
Jonathan Chan 2021-12-23 00:11:53 -08:00
parent 80a71fd453
commit 4d7439370c
1 changed files with 80 additions and 0 deletions

80
src/23.rkt Normal file
View File

@ -0,0 +1,80 @@
#lang racket
#|
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
B░ BB░ BB░
░░░D░C░D░B░░░ ░░░D░C░D░ ░░░ ░░░D░C░D░ ░░░ ░░░D░C░ ░░░
░░░C░A░A░B░░░ ░░░C░A░A░B░░░ ░░░C░A░A░ ░░░ ░░░C░A░A░D░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
BB░ A BB░ A BB░ A BB░
░░░ ░C░ ░D░░░ ░░░ ░C░ ░D░░░ ░░░ ░D░░░ ░░░ ░C░D░░░
░░░C░A░A░D░░░ ░░░C░A░ ░D░░░ ░░░C░A░C░D░░░ ░░░ ░A░C░D░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
A BB░ BB░ B░
░░░ ░C░D░░░ ░░░A░ ░C░D░░░ ░░░A░ ░C░D░░░ ░░░A░B░C░D░░░
░░░A░ ░C░D░░░ ░░░A░ ░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
* B3 B3 D5
D8 A3 C5 C7
A6 A6 B7 B7
|#
(define part1
(+ 30 30 5000 8000 3 500 700 6 6 70 70))
#|
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░B ░BA ░BA C░ ░BA BC░ ░BA BC░
░░░D░C░D░B░░░ ░░░D░C░D░ ░░░ ░░░D░C░D░ ░░░ ░░░D░C░D░ ░░░ ░░░D░C░D░ ░░░ ░░░D░C░ ░░░
░░░D░C░B░A░░░ ░░░D░C░B░A░░░ ░░░D░C░B░ ░░░ ░░░D░C░B░ ░░░ ░░░D░C░B░ ░░░ ░░░D░C░B░ ░░░
░░░D░B░A░C░░░ ░░░D░B░A░C░░░ ░░░D░B░A░C░░░ ░░░D░B░A░ ░░░ ░░░D░B░A░ ░░░ ░░░D░B░A░ ░░░
░░░C░A░A░B░░░ ░░░C░A░A░B░░░ ░░░C░A░A░B░░░ ░░░C░A░A░B░░░ ░░░C░A░A░ ░░░ ░░░C░A░A░D░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░BA BC░ ░BA BC░ ░BA BC░ ░BA C BC░ ░B C BC░ ░BB C BC░
░░░ ░C░ ░░░ ░░░ ░C░ ░░░ ░░░ ░C░ ░D░░░ ░░░ ░C░ ░D░░░ ░░░ ░C░ ░D░░░ ░░░ ░C░ ░D░░░
░░░D░C░B░ ░░░ ░░░ ░C░B░D░░░ ░░░ ░C░B░D░░░ ░░░ ░C░B░D░░░ ░░░ ░C░B░D░░░ ░░░ ░C░ ░D░░░
░░░D░B░A░D░░░ ░░░D░B░A░D░░░ ░░░ ░B░A░D░░░ ░░░ ░B░A░D░░░ ░░░ ░B░A░D░░░ ░░░ ░B░A░D░░░
░░░C░A░A░D░░░ ░░░C░A░A░D░░░ ░░░C░A░A░D░░░ ░░░ ░A░A░D░░░ ░░░A░A░A░D░░░ ░░░A░A░A░D░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░BB C BC░ ░BB C BC░ ░BB BC░ ░BB BC░ ░BB BC░ ░BB B BC░
░░░ ░C░ ░D░░░ ░░░ ░C░ ░D░░░ ░░░ ░C░ ░D░░░ ░░░ ░D░░░ ░░░ ░D░░░ ░░░ ░D░░░
░░░ ░C░ ░D░░░ ░░░A░C░ ░D░░░ ░░░A░C░ ░D░░░ ░░░A░C░ ░D░░░ ░░░A░ ░C░D░░░ ░░░A░ ░C░D░░░
░░░A░B░ ░D░░░ ░░░A░B░ ░D░░░ ░░░A░B░ ░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░ ░░░A░ ░C░D░░░
░░░A░A░A░D░░░ ░░░A░A░ ░D░░░ ░░░A░A░C░D░░░ ░░░A░A░C░D░░░ ░░░A░A░C░D░░░ ░░░A░A░C░D░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
░BB B BC░ ░BB BC░ ░B BC░ BC░ C░
░░░A░ ░D░░░ ░░░A░ ░D░░░ ░░░A░ ░D░░░ ░░░A░ ░D░░░ ░░░A░B░ ░D░░░ ░░░A░B░C░D░░░
░░░A░ ░C░D░░░ ░░░A░ ░C░D░░░ ░░░A░ ░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░
░░░A░ ░C░D░░░ ░░░A░ ░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░
░░░A░ ░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░ ░░░A░B░C░D░░░
░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░ ░░░░░░░░░░░░░
* B9 A9 C5 B5 D7
D0 D0 D0 C9 A5 B7
A0 A0 C5 C6 C6 B4
A7 B5 B6 B6 B6 C5
|#
(define part2
(let ([A (+ 9 5 10 10 7)]
[B (+ 9 5 7 4 5 6 6 6)]
[C (+ 5 9 7 7 3 5)]
[D (+ 7 10 10 10)])
(+ A (* B 10) (* C 100) (* D 1000))))
(printf "Part 1: ~a\nPart 2: ~a" part1 part2)