From 4d7439370c1b5a711913aa0b814180f192471aba Mon Sep 17 00:00:00 2001 From: Jonathan Chan Date: Thu, 23 Dec 2021 00:11:53 -0800 Subject: [PATCH] Day 23 manually lmao --- src/23.rkt | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 80 insertions(+) create mode 100644 src/23.rkt diff --git a/src/23.rkt b/src/23.rkt new file mode 100644 index 0000000..3e0ac36 --- /dev/null +++ b/src/23.rkt @@ -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) \ No newline at end of file