Cube Conundrum part 1
This commit is contained in:
parent
5624f89141
commit
41b82a6a1e
|
@ -0,0 +1 @@
|
||||||
|
((scheme-mode . ((geiser-scheme . 'chicken))))
|
|
@ -0,0 +1 @@
|
||||||
|
*~
|
515
chicken.org
515
chicken.org
|
@ -55,9 +55,132 @@ these together produces =142=.
|
||||||
|
|
||||||
Consider your entire calibration document. *What is the sum of all of the calibration values?*
|
Consider your entire calibration document. *What is the sum of all of the calibration values?*
|
||||||
|
|
||||||
*** Puzzle Input
|
*** Puzzle Solution
|
||||||
|
:PROPERTIES:
|
||||||
|
:ID: day1-puzzle-solution-1
|
||||||
|
:END:
|
||||||
|
|
||||||
Jump to [[#headline-6][the solution]].
|
#+NAME: day1-solution-1
|
||||||
|
#+begin_src scheme :var input=day1-input
|
||||||
|
(import (chicken string)
|
||||||
|
(chicken irregex))
|
||||||
|
(let ((lines (string-split input "\n")))
|
||||||
|
(foldl + 0
|
||||||
|
(map
|
||||||
|
(lambda (line)
|
||||||
|
(let ((digits (irregex-extract '(/ #\0 #\9) line)))
|
||||||
|
(if (= 0 (length digits))
|
||||||
|
0
|
||||||
|
(let ((first-digit (car digits))
|
||||||
|
(last-digit (car (reverse digits))))
|
||||||
|
(string->number (string-append first-digit last-digit))))))
|
||||||
|
lines)))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
#+RESULTS: day1-solution-1
|
||||||
|
: 54159
|
||||||
|
|
||||||
|
|
||||||
|
** Part Two
|
||||||
|
|
||||||
|
*** Quest
|
||||||
|
|
||||||
|
Your calculation isn't quite right. It looks like some of the digits are actually *spelled out with
|
||||||
|
letters*: =one=, =two=, =three=, =four=, =five=, =six=, =seven=, =eight=, and =nine= *also* count as
|
||||||
|
valid "digits".
|
||||||
|
|
||||||
|
Equipped with this new information, you now need to find the real first and last digit on each
|
||||||
|
line. For example:
|
||||||
|
|
||||||
|
#+begin_example
|
||||||
|
two1nine
|
||||||
|
eightwothree
|
||||||
|
abcone2threexyz
|
||||||
|
xtwone3four
|
||||||
|
4nineeightseven2
|
||||||
|
zoneight234
|
||||||
|
7pqrstsixteen
|
||||||
|
#+end_example
|
||||||
|
|
||||||
|
In this example, the calibration values are =29=, =83=, =13=, =24=, =42=, =14=, and =76=. Adding
|
||||||
|
these together produces =281=.
|
||||||
|
|
||||||
|
*What is the sum of all of the calibration values?*
|
||||||
|
|
||||||
|
*** Puzzle Solution
|
||||||
|
|
||||||
|
#+NAME: day1-solution-2
|
||||||
|
#+begin_src scheme
|
||||||
|
(import (chicken string)
|
||||||
|
(chicken irregex))
|
||||||
|
|
||||||
|
(define (extract-digits input-string)
|
||||||
|
(irregex-extract '(or (/ #\0 #\9)
|
||||||
|
"one"
|
||||||
|
"two"
|
||||||
|
"three"
|
||||||
|
"four"
|
||||||
|
"five"
|
||||||
|
"six"
|
||||||
|
"seven"
|
||||||
|
"eight"
|
||||||
|
"nine"
|
||||||
|
; Duplicates
|
||||||
|
"twone"
|
||||||
|
"eightwo"
|
||||||
|
"nineight"
|
||||||
|
"eighthree"
|
||||||
|
"threeight"
|
||||||
|
"fiveight"
|
||||||
|
"oneight"
|
||||||
|
"sevenine")
|
||||||
|
input-string))
|
||||||
|
|
||||||
|
(define (translate-code digit)
|
||||||
|
(case (string->symbol digit)
|
||||||
|
((|0|) "0")
|
||||||
|
((|1| one) "1")
|
||||||
|
((|2| two) "2")
|
||||||
|
((|3| three) "3")
|
||||||
|
((|4| four) "4")
|
||||||
|
((|5| five) "5")
|
||||||
|
((|6| six) "6")
|
||||||
|
((|7| seven) "7")
|
||||||
|
((|8| eight) "8")
|
||||||
|
((|9| nine) "9")
|
||||||
|
; Again, duplicates
|
||||||
|
((twone) "21")
|
||||||
|
((eightwo) "82")
|
||||||
|
((nineight) "98")
|
||||||
|
((eighthree) "83")
|
||||||
|
((threeight) "38")
|
||||||
|
((fiveight) "58")
|
||||||
|
((oneight) "18")
|
||||||
|
((sevenine) "79")
|
||||||
|
))
|
||||||
|
|
||||||
|
(let ((lines (string-split input "\n")))
|
||||||
|
(foldl + 0
|
||||||
|
(map
|
||||||
|
(lambda (line)
|
||||||
|
(let ((digits (string->list
|
||||||
|
(foldl string-append ""
|
||||||
|
(map translate-code (extract-digits line))))))
|
||||||
|
(if (= 0 (length digits))
|
||||||
|
0
|
||||||
|
(let ((first-digit (car digits))
|
||||||
|
(last-digit (car (reverse digits))))
|
||||||
|
(string->number (string first-digit last-digit))))))
|
||||||
|
lines)))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
#+RESULTS: day1-solution-2
|
||||||
|
: 53866
|
||||||
|
|
||||||
|
|
||||||
|
** Puzzle Input
|
||||||
|
|
||||||
|
Jump to [[#headline-10][day 2]].
|
||||||
|
|
||||||
#+NAME: day1-input
|
#+NAME: day1-input
|
||||||
#+begin_example
|
#+begin_example
|
||||||
|
@ -1063,123 +1186,291 @@ eightbqfhnmvqsoneninezbrzcqkz4ftv
|
||||||
1eightcrcjcbdthreebscfpvznqfrj6
|
1eightcrcjcbdthreebscfpvznqfrj6
|
||||||
#+end_example
|
#+end_example
|
||||||
|
|
||||||
*** Puzzle Solution
|
* Day 2: Cube Conundrum
|
||||||
:PROPERTIES:
|
|
||||||
:ID: day1-puzzle-solution-1
|
|
||||||
:END:
|
|
||||||
|
|
||||||
#+NAME: day1-solution-1
|
** Part One
|
||||||
#+begin_src scheme :var input=day1-input
|
*** Quest
|
||||||
(import (chicken string)
|
You're launched high into the atmosphere! The apex of your trajectory just barely reaches the
|
||||||
(chicken irregex))
|
surface of a large island floating in the sky. You gently land in a fluffy pile of leaves. It's
|
||||||
(let ((lines (string-split input "\n")))
|
quite cold, but you don't see much snow. An Elf runs over to greet you.
|
||||||
(foldl + 0
|
|
||||||
(map
|
The Elf explains that you've arrived at *Snow Island* and apologizes for the lack of snow. He'll be
|
||||||
(lambda (line)
|
happy to explain the situation, but it's a bit of a walk, so you have some time. They don't get many
|
||||||
(let ((digits (irregex-extract '(/ #\0 #\9) line)))
|
visitors up here; would you like to play a game in the meantime?
|
||||||
(if (= 0 (length digits))
|
|
||||||
0
|
As you walk, the Elf shows you a small bag and some cubes which are either red, green, or blue. Each
|
||||||
(let ((first-digit (car digits))
|
time you play this game, he will hide a secret number of cubes of each color in the bag, and your
|
||||||
(last-digit (car (reverse digits))))
|
goal is to figure out information about the number of cubes.
|
||||||
(string->number (string-append first-digit last-digit))))))
|
|
||||||
lines)))
|
To get information, once a bag has been loaded with cubes, the Elf will reach into the bag, grab a
|
||||||
|
handful of random cubes, show them to you, and then put them back in the bag. He'll do this a few
|
||||||
|
times per game.
|
||||||
|
|
||||||
|
You play several games and record the information from each game (your puzzle input). Each game is
|
||||||
|
listed with its ID number (like the =11= in =Game 11: ...=) followed by a semicolon-separated list of
|
||||||
|
subsets of cubes that were revealed from the bag (like =3 red, 5 green, 4 blue=).
|
||||||
|
|
||||||
|
For example, the record of a few games might look like this:
|
||||||
|
|
||||||
|
#+begin_example
|
||||||
|
Game 1: 3 blue, 4 red; 1 red, 2 green, 6 blue; 2 green
|
||||||
|
Game 2: 1 blue, 2 green; 3 green, 4 blue, 1 red; 1 green, 1 blue
|
||||||
|
Game 3: 8 green, 6 blue, 20 red; 5 blue, 4 red, 13 green; 5 green, 1 red
|
||||||
|
Game 4: 1 green, 3 red, 6 blue; 3 green, 6 red; 3 green, 15 blue, 14 red
|
||||||
|
Game 5: 6 red, 1 blue, 3 green; 2 blue, 1 red, 2 green
|
||||||
|
#+end_example
|
||||||
|
|
||||||
|
In game 1, three sets of cubes are revealed from the bag (and then put back again). The first set is
|
||||||
|
3 blue cubes and 4 red cubes; the second set is 1 red cube, 2 green cubes, and 6 blue cubes; the
|
||||||
|
third set is only 2 green cubes.
|
||||||
|
|
||||||
|
The Elf would first like to know which games would have been possible if the bag contained *only 12
|
||||||
|
red cubes, 13 green cubes, and 14 blue cubes*?
|
||||||
|
|
||||||
|
In the example above, games 1, 2, and 5 would have been *possible* if the bag had been loaded with
|
||||||
|
that configuration. However, game 3 would have been *impossible* because at one point the Elf showed
|
||||||
|
you 20 red cubes at once; similarly, game 4 would also have been *impossible* because the Elf showed
|
||||||
|
you 15 blue cubes at once. If you add up the IDs of the games that would have been possible, you
|
||||||
|
get =8=.
|
||||||
|
|
||||||
|
Determine which games would have been possible if the bag had been loaded with only 12 red cubes, 13
|
||||||
|
green cubes, and 14 blue cubes. *What is the sum of the IDs of those games?*
|
||||||
|
|
||||||
|
*** Puzzle Solution
|
||||||
|
|
||||||
|
I decided to make the code for this as readable as possible.
|
||||||
|
I've split the process into multiple parts:
|
||||||
|
|
||||||
|
**** Record Splitting
|
||||||
|
|
||||||
|
Here, I am turning the input data into an alist with the game number as key, and the draws as value
|
||||||
|
of the entries, by using irregex matches.
|
||||||
|
|
||||||
|
#+NAME: day2-part1-record-splitting
|
||||||
|
#+begin_src scheme
|
||||||
|
;; Records
|
||||||
|
(define record-pattern
|
||||||
|
'(: bol
|
||||||
|
"Game "
|
||||||
|
(submatch-named game-no (+ (/ #\0 #\9)))
|
||||||
|
":"
|
||||||
|
(submatch-named draws (*? any))
|
||||||
|
eol))
|
||||||
|
|
||||||
|
(define (record-kons from-index match seed)
|
||||||
|
(cons
|
||||||
|
(cons (string->number (irregex-match-substring match 'game-no))
|
||||||
|
(draws-fold (irregex-match-substring match 'draws)))
|
||||||
|
seed))
|
||||||
|
|
||||||
|
(define (record-fold input)
|
||||||
|
(irregex-fold record-pattern record-kons '() input))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
#+RESULTS: day1-solution-1
|
**** Draw Splitting
|
||||||
: 54159
|
|
||||||
|
Next, as already called inside ~record-kons~, the list of draws has to be split and processed into
|
||||||
|
individual draws. Here, I simply split them.
|
||||||
|
|
||||||
|
#+NAME: day2-part1-draw-splitting
|
||||||
|
#+begin_src scheme
|
||||||
|
;; Draws
|
||||||
|
(define draws-pattern
|
||||||
|
'(: " " (* (~ #\;))))
|
||||||
|
|
||||||
|
(define (draws-kons from-index match seed)
|
||||||
|
(cons
|
||||||
|
(draw-fold (irregex-match-substring match))
|
||||||
|
seed))
|
||||||
|
|
||||||
|
(define (draws-fold line)
|
||||||
|
(irregex-fold draws-pattern draws-kons '() line))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
**** Draw Processing
|
||||||
|
|
||||||
|
And as the last pre-processing step, I take apart the individual draws, and assign each amount to
|
||||||
|
its respective colour keyword.
|
||||||
|
|
||||||
|
#+NAME: day2-part1-draw-processing
|
||||||
|
#+begin_src scheme
|
||||||
|
;; Draw
|
||||||
|
(define draw-pattern
|
||||||
|
'(: " "
|
||||||
|
(submatch-named amount (+ (/ #\0 #\9)))
|
||||||
|
" "
|
||||||
|
(submatch-named colour (or "red" "green" "blue"))
|
||||||
|
(? ",")))
|
||||||
|
|
||||||
|
(define (draw-kons from-index match seed)
|
||||||
|
(cons
|
||||||
|
(cons (string->keyword (irregex-match-substring match 'colour))
|
||||||
|
(string->number (irregex-match-substring match 'amount)))
|
||||||
|
seed))
|
||||||
|
|
||||||
|
(define (draw-fold draw)
|
||||||
|
(irregex-fold draw-pattern draw-kons '() draw))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
**** Main Program
|
||||||
|
|
||||||
|
I check the possibility of a game by folding over its draws, starting with a ~#t~ (true) value;
|
||||||
|
basically, it is nothing more than a recursive ~and~ statement.
|
||||||
|
|
||||||
|
#+NAME: day2-part1-success-check
|
||||||
|
#+begin_src scheme
|
||||||
|
;; Game success check
|
||||||
|
(define (game-possible? draws)
|
||||||
|
(foldl (lambda (seed draw)
|
||||||
|
(and seed
|
||||||
|
(>= 12 (alist-ref #:red draw eqv? 0))
|
||||||
|
(>= 13 (alist-ref #:green draw eqv? 0))
|
||||||
|
(>= 14 (alist-ref #:blue draw eqv? 0))))
|
||||||
|
#t draws))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
Then, I put everything together in a main function, preprocessing the input and summing up all game
|
||||||
|
ids for which ~game-possible?~ returns ~#t~.
|
||||||
|
|
||||||
|
#+NAME: day2-part1-main-function
|
||||||
|
#+begin_src scheme
|
||||||
|
;; Main function
|
||||||
|
(define (sum-of-valid-games input)
|
||||||
|
(let ((games (record-fold input)))
|
||||||
|
(foldl
|
||||||
|
(lambda (seed game)
|
||||||
|
(let ((game-id (car game))
|
||||||
|
(draws (cdr game)))
|
||||||
|
(if (game-possible? draws)
|
||||||
|
(+ seed game-id)
|
||||||
|
seed)))
|
||||||
|
0 games)))
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
And now, everything can be put together:
|
||||||
|
|
||||||
|
#+NAME: day2-part1-solution
|
||||||
|
#+begin_src scheme :noweb no-export
|
||||||
|
(import (chicken string)
|
||||||
|
(chicken keyword)
|
||||||
|
(chicken irregex))
|
||||||
|
|
||||||
|
<<day2-part1-draw-processing>>
|
||||||
|
<<day2-part1-draw-splitting>>
|
||||||
|
<<day2-part1-record-splitting>>
|
||||||
|
<<day2-part1-success-check>>
|
||||||
|
<<day2-part1-main-function>>
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
#+RESULTS: day2-part1-solution
|
||||||
|
: 2406
|
||||||
|
|
||||||
** Part Two
|
** Part Two
|
||||||
|
|
||||||
*** Quest
|
To be done...
|
||||||
|
|
||||||
Your calculation isn't quite right. It looks like some of the digits are actually *spelled out with
|
** Puzzle Input
|
||||||
letters*: =one=, =two=, =three=, =four=, =five=, =six=, =seven=, =eight=, and =nine= *also* count as
|
|
||||||
valid "digits".
|
|
||||||
|
|
||||||
Equipped with this new information, you now need to find the real first and last digit on each
|
|
||||||
line. For example:
|
|
||||||
|
|
||||||
|
#+NAME: day2-input
|
||||||
#+begin_example
|
#+begin_example
|
||||||
two1nine
|
Game 1: 2 blue, 4 green; 7 blue, 1 red, 14 green; 5 blue, 13 green, 1 red; 1 red, 7 blue, 11 green
|
||||||
eightwothree
|
Game 2: 6 blue, 3 green; 4 red, 1 green, 7 blue; 2 green
|
||||||
abcone2threexyz
|
Game 3: 4 blue, 3 red; 2 blue, 4 red, 7 green; 1 blue, 6 red, 7 green; 5 green, 10 blue; 9 green, 1 blue, 6 red; 8 blue, 1 red, 12 green
|
||||||
xtwone3four
|
Game 4: 15 blue, 4 green, 5 red; 2 red, 2 green, 5 blue; 3 green, 13 blue; 17 blue, 1 green, 5 red
|
||||||
4nineeightseven2
|
Game 5: 11 green, 4 red, 3 blue; 8 blue, 6 green; 8 green, 2 red, 9 blue; 4 red, 16 blue; 8 blue, 10 red, 6 green; 9 blue, 3 red, 10 green
|
||||||
zoneight234
|
Game 6: 4 green, 9 red, 2 blue; 7 red, 2 green, 15 blue; 13 red, 2 green, 6 blue; 5 green, 7 blue, 6 red; 19 red, 15 blue, 4 green
|
||||||
7pqrstsixteen
|
Game 7: 12 blue, 5 red; 5 green, 6 blue; 5 red, 15 blue; 5 blue, 5 red, 5 green; 1 green, 11 blue, 2 red
|
||||||
|
Game 8: 6 red, 11 green; 5 red, 2 blue, 7 green; 7 red, 6 green
|
||||||
|
Game 9: 5 red, 1 blue, 11 green; 4 green, 1 blue; 8 green, 2 red; 1 green, 2 red, 2 blue; 3 green, 2 red
|
||||||
|
Game 10: 7 blue, 4 red, 11 green; 13 green, 1 red, 1 blue; 7 blue, 6 green
|
||||||
|
Game 11: 4 blue, 7 red, 2 green; 1 green, 14 red, 3 blue; 2 green, 5 red, 3 blue
|
||||||
|
Game 12: 6 green, 6 blue, 1 red; 1 green, 3 red, 2 blue; 2 blue, 6 red, 7 green
|
||||||
|
Game 13: 6 red, 10 green, 13 blue; 3 red, 12 green, 9 blue; 11 blue, 1 green; 4 red, 3 blue, 13 green; 12 green, 10 blue, 6 red; 13 blue, 3 green, 3 red
|
||||||
|
Game 14: 8 green, 1 blue, 17 red; 7 green, 11 blue, 19 red; 19 red, 9 blue, 2 green; 8 green, 20 red, 12 blue; 16 red, 3 green, 11 blue
|
||||||
|
Game 15: 3 red, 1 green, 5 blue; 9 blue, 4 green; 6 blue, 5 green, 9 red
|
||||||
|
Game 16: 13 blue, 1 red; 2 blue, 2 green; 1 green; 10 blue, 8 red; 4 red, 3 green, 9 blue
|
||||||
|
Game 17: 10 blue, 2 red; 3 green, 4 red; 6 blue, 1 red, 6 green; 5 green, 7 blue, 5 red
|
||||||
|
Game 18: 3 red, 1 green; 2 red, 5 blue; 5 blue, 2 red
|
||||||
|
Game 19: 7 green, 4 blue, 1 red; 1 green, 4 blue, 4 red; 6 blue, 8 green; 4 green, 2 blue, 1 red; 1 red, 1 blue, 2 green
|
||||||
|
Game 20: 13 green, 1 red, 1 blue; 12 green, 1 blue; 5 green, 1 blue, 2 red; 16 green, 3 red; 2 red, 9 green
|
||||||
|
Game 21: 8 red, 2 green, 2 blue; 5 red, 3 blue; 2 blue, 5 red, 2 green; 7 blue
|
||||||
|
Game 22: 9 red, 12 blue, 7 green; 7 red, 13 blue, 4 green; 9 blue, 13 red, 1 green; 3 blue, 4 red, 5 green
|
||||||
|
Game 23: 7 green, 12 red; 6 red, 7 green, 4 blue; 1 blue, 11 red, 5 green; 4 green, 2 blue, 6 red; 12 green, 6 red, 3 blue
|
||||||
|
Game 24: 11 red, 4 blue; 9 blue, 6 green, 17 red; 8 green, 2 red; 16 blue, 6 red, 2 green
|
||||||
|
Game 25: 7 red, 4 blue; 7 blue, 4 green; 10 blue, 4 red, 2 green; 6 green, 4 blue, 1 red; 10 blue, 2 red, 4 green
|
||||||
|
Game 26: 7 green, 8 red, 6 blue; 5 red, 3 green, 2 blue; 13 blue, 6 green, 5 red; 10 blue, 4 red, 8 green; 2 red, 2 blue, 1 green; 8 blue, 1 green, 4 red
|
||||||
|
Game 27: 7 green, 3 blue, 13 red; 1 green, 17 red, 1 blue; 16 red, 3 blue, 3 green; 5 green, 3 red, 5 blue; 13 red, 4 green, 8 blue; 6 blue, 2 green, 15 red
|
||||||
|
Game 28: 8 blue, 5 red, 18 green; 1 green, 6 red; 7 blue, 18 green, 5 red; 16 green, 3 red, 7 blue; 6 blue, 18 green; 8 blue, 8 green, 7 red
|
||||||
|
Game 29: 4 blue, 1 red; 6 blue, 1 red; 17 blue, 1 green
|
||||||
|
Game 30: 1 red, 2 green, 5 blue; 2 blue, 7 green, 6 red; 11 blue, 4 red, 2 green; 5 green, 6 blue, 4 red; 5 red, 8 blue, 7 green
|
||||||
|
Game 31: 10 green, 9 blue; 5 green, 9 blue, 1 red; 1 red, 8 blue
|
||||||
|
Game 32: 3 red, 5 green; 5 red, 5 blue, 14 green; 2 red, 2 green; 11 green, 3 red, 5 blue
|
||||||
|
Game 33: 7 blue, 10 green, 8 red; 18 blue, 15 green, 4 red; 6 red, 1 green; 18 blue, 8 red, 11 green
|
||||||
|
Game 34: 3 green; 2 red, 5 green; 5 blue, 3 green; 3 blue, 5 green, 1 red
|
||||||
|
Game 35: 1 blue, 5 green, 6 red; 3 green, 2 red, 3 blue; 4 red, 9 blue, 3 green; 1 green, 12 blue, 1 red
|
||||||
|
Game 36: 14 green, 3 blue, 16 red; 1 green, 2 red, 4 blue; 4 blue, 9 green, 18 red; 4 blue, 4 green, 14 red; 4 blue, 11 green
|
||||||
|
Game 37: 7 green, 2 blue, 3 red; 8 green, 9 red, 2 blue; 4 blue, 15 green, 18 red
|
||||||
|
Game 38: 11 red, 1 blue, 6 green; 6 green, 2 blue, 1 red; 6 blue, 17 red, 2 green; 17 red, 9 blue, 3 green; 7 red, 7 blue, 3 green; 3 green, 7 red, 7 blue
|
||||||
|
Game 39: 1 blue, 2 green; 1 blue, 2 green, 7 red; 1 blue, 4 red, 2 green; 1 blue, 12 red
|
||||||
|
Game 40: 1 blue, 4 red, 15 green; 12 green, 1 blue, 15 red; 15 red, 8 green
|
||||||
|
Game 41: 5 blue, 5 green, 1 red; 9 red, 8 green, 9 blue; 10 red, 10 blue, 4 green; 3 blue, 17 red, 3 green; 3 blue, 4 red, 2 green
|
||||||
|
Game 42: 2 blue, 10 red, 17 green; 6 red, 10 green, 10 blue; 3 blue, 6 green, 8 red; 9 green, 2 blue, 8 red; 13 green, 5 blue; 4 red, 18 green, 11 blue
|
||||||
|
Game 43: 8 red, 3 blue, 6 green; 2 red, 8 green, 10 blue; 5 blue, 9 red, 9 green; 1 green, 15 red, 8 blue
|
||||||
|
Game 44: 11 green, 19 red, 14 blue; 1 red, 19 green, 9 blue; 7 green, 8 red, 10 blue; 14 green, 8 blue, 15 red; 7 green, 3 red, 2 blue
|
||||||
|
Game 45: 4 green, 9 blue, 4 red; 7 blue, 13 green, 2 red; 12 green, 10 blue, 10 red
|
||||||
|
Game 46: 10 red, 2 green, 1 blue; 10 red, 10 green, 1 blue; 1 blue, 13 green; 1 blue, 2 green, 10 red; 1 blue, 7 red, 11 green; 10 red, 5 green
|
||||||
|
Game 47: 3 blue, 2 green, 12 red; 5 blue, 7 red; 5 green, 14 red; 12 red, 7 green, 5 blue
|
||||||
|
Game 48: 5 red, 1 blue, 3 green; 7 red, 8 green, 4 blue; 4 blue, 5 green, 17 red; 1 blue, 12 red
|
||||||
|
Game 49: 2 green, 7 red, 1 blue; 11 green, 5 red; 4 red, 1 blue, 1 green; 11 green, 1 blue, 7 red
|
||||||
|
Game 50: 10 red, 3 blue, 6 green; 1 blue, 5 red, 3 green; 6 blue, 11 red, 12 green; 10 green
|
||||||
|
Game 51: 18 blue, 1 green, 1 red; 15 blue; 13 blue, 11 green, 4 red; 8 red, 1 green, 18 blue; 10 green, 7 blue, 8 red
|
||||||
|
Game 52: 13 green, 15 blue; 6 blue, 4 red, 8 green; 6 red, 13 green, 11 blue; 2 red, 7 green, 13 blue; 12 green, 2 blue, 3 red; 6 red, 11 green, 1 blue
|
||||||
|
Game 53: 2 red, 2 green; 3 green, 1 blue, 1 red; 1 blue, 4 green, 7 red; 4 red, 1 blue; 4 red, 5 green, 2 blue
|
||||||
|
Game 54: 8 blue, 2 red, 5 green; 6 green, 2 blue, 3 red; 1 blue, 8 green, 4 red
|
||||||
|
Game 55: 6 green, 6 blue, 3 red; 13 green, 1 red; 2 blue, 1 red, 1 green; 14 green, 1 blue, 1 red; 1 blue, 2 red, 9 green; 9 green, 2 blue, 4 red
|
||||||
|
Game 56: 4 green, 6 blue, 1 red; 5 red, 3 blue; 6 red, 1 blue; 9 green, 5 blue, 7 red
|
||||||
|
Game 57: 5 red, 5 green, 8 blue; 11 red, 3 blue, 8 green; 7 green, 9 blue, 11 red; 3 green, 2 blue, 12 red
|
||||||
|
Game 58: 3 green, 3 red; 4 red, 1 green; 1 red, 6 green; 5 green; 5 red, 1 blue, 3 green; 3 red, 1 blue
|
||||||
|
Game 59: 2 green, 2 blue; 7 red, 18 green; 2 blue, 7 red, 16 green; 7 red, 10 green
|
||||||
|
Game 60: 3 blue, 4 red; 4 blue, 3 red, 3 green; 16 green
|
||||||
|
Game 61: 1 blue, 2 red, 8 green; 9 blue, 4 green, 12 red; 10 green, 2 red; 5 blue, 11 red, 1 green; 10 green, 3 blue, 8 red; 5 red, 2 green
|
||||||
|
Game 62: 15 red, 10 blue, 7 green; 4 blue, 9 red, 4 green; 4 red, 2 blue, 2 green; 11 green, 2 red; 8 blue, 2 green; 2 green, 8 red, 8 blue
|
||||||
|
Game 63: 2 green, 3 blue, 1 red; 7 blue, 5 red; 7 blue
|
||||||
|
Game 64: 3 green, 5 blue, 6 red; 9 green, 4 red; 13 red, 1 blue, 5 green; 4 blue, 13 red, 8 green
|
||||||
|
Game 65: 7 green, 1 blue; 1 red, 14 blue, 4 green; 8 blue, 6 red; 14 green, 4 red
|
||||||
|
Game 66: 6 red, 11 green, 7 blue; 1 blue, 6 red; 13 red, 7 blue, 3 green; 8 red, 6 blue, 15 green; 7 green, 6 blue, 4 red; 4 red, 1 blue, 20 green
|
||||||
|
Game 67: 4 blue, 9 green; 15 red, 16 green, 3 blue; 1 green, 14 red, 3 blue; 3 red, 2 blue, 3 green; 4 green, 3 blue, 12 red
|
||||||
|
Game 68: 5 green, 3 blue, 2 red; 4 green, 8 blue, 11 red; 6 red, 6 blue, 4 green; 8 red, 5 blue, 7 green; 6 blue, 6 green, 11 red; 2 blue, 3 green, 3 red
|
||||||
|
Game 69: 15 blue, 16 green, 5 red; 10 blue, 3 red, 13 green; 4 red, 5 blue, 2 green; 1 red; 11 green, 5 red, 15 blue
|
||||||
|
Game 70: 8 red, 9 blue, 12 green; 3 red, 2 blue, 14 green; 10 blue, 1 red, 18 green; 1 blue, 7 red, 16 green; 3 green, 4 red, 16 blue; 10 green, 6 red
|
||||||
|
Game 71: 12 blue, 7 red, 16 green; 2 red, 9 blue, 15 green; 1 red, 11 blue, 11 green; 15 red, 16 blue, 2 green
|
||||||
|
Game 72: 1 blue, 11 red, 6 green; 1 red, 2 blue, 5 green; 4 green, 2 red; 2 green, 12 red
|
||||||
|
Game 73: 1 blue, 1 red; 2 red, 4 blue, 2 green; 1 blue, 2 green, 10 red; 8 red
|
||||||
|
Game 74: 12 red, 1 green, 4 blue; 1 red, 5 blue, 1 green; 11 green, 16 red, 7 blue; 7 red, 1 blue, 1 green; 12 red, 11 green, 12 blue; 11 green, 6 red
|
||||||
|
Game 75: 12 green, 8 red, 3 blue; 7 red, 10 green; 1 green, 7 blue, 1 red
|
||||||
|
Game 76: 4 green, 1 red, 3 blue; 7 blue, 3 green, 3 red; 4 blue, 2 red, 3 green; 4 blue, 1 green
|
||||||
|
Game 77: 2 green, 12 blue, 10 red; 5 blue, 7 red; 2 red, 6 green; 1 blue, 2 red, 6 green
|
||||||
|
Game 78: 2 green, 4 blue, 4 red; 8 green, 10 red, 10 blue; 5 green, 8 blue, 10 red; 6 green, 2 red
|
||||||
|
Game 79: 3 green, 2 blue, 11 red; 8 red, 11 green, 1 blue; 1 blue, 16 red; 5 red, 7 green, 16 blue; 12 red, 7 green, 9 blue; 4 red, 20 blue, 12 green
|
||||||
|
Game 80: 3 red, 5 green; 2 blue, 4 green; 2 red, 12 green, 4 blue; 10 green, 1 blue, 1 red; 4 blue, 3 red
|
||||||
|
Game 81: 1 blue, 1 green, 1 red; 5 green, 3 red, 1 blue; 1 blue, 6 green; 1 green; 1 red, 5 green, 2 blue; 1 blue, 1 red, 3 green
|
||||||
|
Game 82: 7 green, 10 blue, 3 red; 10 green, 12 red, 12 blue; 18 red, 8 green, 14 blue; 3 red, 3 green, 10 blue; 3 red, 1 blue, 5 green; 1 green, 8 blue
|
||||||
|
Game 83: 9 red, 3 blue; 14 blue, 8 red, 3 green; 14 blue, 5 green, 4 red
|
||||||
|
Game 84: 2 blue, 3 red, 6 green; 11 green, 2 red, 1 blue; 17 green, 3 blue, 3 red; 1 red, 1 blue; 1 red, 2 blue, 19 green
|
||||||
|
Game 85: 3 green, 2 blue, 3 red; 4 red, 5 blue, 8 green; 15 green, 1 red, 9 blue; 12 green, 3 blue, 2 red
|
||||||
|
Game 86: 15 green, 7 red, 10 blue; 2 blue, 2 red, 1 green; 4 red, 1 green, 9 blue; 7 red, 14 blue, 5 green
|
||||||
|
Game 87: 1 green, 3 blue, 1 red; 2 blue, 1 green; 1 blue, 2 green, 1 red
|
||||||
|
Game 88: 2 green, 6 blue, 5 red; 5 blue, 2 red; 3 red, 13 blue; 9 blue, 10 red, 1 green
|
||||||
|
Game 89: 6 green, 10 red, 2 blue; 7 red, 1 blue, 8 green; 4 blue, 3 red, 5 green; 4 green, 4 blue, 10 red
|
||||||
|
Game 90: 8 red, 7 blue; 4 green, 3 red, 1 blue; 5 blue, 2 green
|
||||||
|
Game 91: 15 green, 14 red; 12 red, 16 green, 2 blue; 8 red, 10 green; 1 green, 6 red; 8 green, 12 red
|
||||||
|
Game 92: 4 blue, 4 green, 9 red; 1 blue, 17 green; 1 green; 15 green, 3 blue, 12 red; 11 red, 1 blue, 7 green; 7 blue, 13 red, 8 green
|
||||||
|
Game 93: 10 blue, 12 red; 10 blue, 11 green, 8 red; 1 blue, 11 green, 7 red; 10 blue, 15 red, 5 green; 11 red, 8 green, 9 blue; 10 green, 3 blue
|
||||||
|
Game 94: 1 blue, 2 red; 4 red, 1 green, 5 blue; 3 red, 2 green; 2 green, 2 blue; 1 red, 5 blue, 1 green; 4 blue, 1 red, 2 green
|
||||||
|
Game 95: 1 red, 1 blue, 3 green; 2 green, 6 blue; 1 green, 13 blue, 1 red; 3 green, 15 blue
|
||||||
|
Game 96: 16 blue, 7 green, 5 red; 5 green, 5 blue, 6 red; 3 green, 17 blue, 10 red; 13 blue, 2 red, 1 green
|
||||||
|
Game 97: 12 red; 1 blue, 6 red, 1 green; 9 red, 2 blue, 1 green; 1 green, 2 blue, 1 red; 15 red, 1 blue; 1 blue
|
||||||
|
Game 98: 11 red, 6 blue, 13 green; 4 blue, 2 red, 12 green; 2 blue, 8 green, 10 red
|
||||||
|
Game 99: 2 red, 1 blue; 4 green; 7 green, 1 blue, 1 red; 5 green, 2 red; 1 blue, 2 red, 9 green; 2 green, 3 red
|
||||||
|
Game 100: 7 red, 11 blue; 10 red, 5 blue, 1 green; 7 red, 1 green, 13 blue; 9 red; 9 red, 19 blue; 9 red, 9 blue
|
||||||
#+end_example
|
#+end_example
|
||||||
|
|
||||||
In this example, the calibration values are =29=, =83=, =13=, =24=, =42=, =14=, and =76=. Adding
|
|
||||||
these together produces =281=.
|
|
||||||
|
|
||||||
*What is the sum of all of the calibration values?*
|
|
||||||
|
|
||||||
*** Puzzle Solution
|
|
||||||
|
|
||||||
#+NAME: day1-solution-2
|
|
||||||
#+begin_src scheme
|
|
||||||
(import (chicken string)
|
|
||||||
(chicken irregex))
|
|
||||||
|
|
||||||
(define (extract-digits input-string)
|
|
||||||
(irregex-extract '(or (/ #\0 #\9)
|
|
||||||
"one"
|
|
||||||
"two"
|
|
||||||
"three"
|
|
||||||
"four"
|
|
||||||
"five"
|
|
||||||
"six"
|
|
||||||
"seven"
|
|
||||||
"eight"
|
|
||||||
"nine"
|
|
||||||
; Duplicates
|
|
||||||
"twone"
|
|
||||||
"eightwo"
|
|
||||||
"nineight"
|
|
||||||
"eighthree"
|
|
||||||
"threeight"
|
|
||||||
"fiveight"
|
|
||||||
"oneight"
|
|
||||||
"sevenine")
|
|
||||||
input-string))
|
|
||||||
|
|
||||||
(define (translate-code digit)
|
|
||||||
(case (string->symbol digit)
|
|
||||||
((|0|) "0")
|
|
||||||
((|1| one) "1")
|
|
||||||
((|2| two) "2")
|
|
||||||
((|3| three) "3")
|
|
||||||
((|4| four) "4")
|
|
||||||
((|5| five) "5")
|
|
||||||
((|6| six) "6")
|
|
||||||
((|7| seven) "7")
|
|
||||||
((|8| eight) "8")
|
|
||||||
((|9| nine) "9")
|
|
||||||
; Again, duplicates
|
|
||||||
((twone) "21")
|
|
||||||
((eightwo) "82")
|
|
||||||
((nineight) "98")
|
|
||||||
((eighthree) "83")
|
|
||||||
((threeight) "38")
|
|
||||||
((fiveight) "58")
|
|
||||||
((oneight) "18")
|
|
||||||
((sevenine) "79")
|
|
||||||
))
|
|
||||||
|
|
||||||
(let ((lines (string-split input "\n")))
|
|
||||||
(foldl + 0
|
|
||||||
(map
|
|
||||||
(lambda (line)
|
|
||||||
(let ((digits (string->list
|
|
||||||
(foldl string-append ""
|
|
||||||
(map translate-code (extract-digits line))))))
|
|
||||||
(if (= 0 (length digits))
|
|
||||||
0
|
|
||||||
(let ((first-digit (car digits))
|
|
||||||
(last-digit (car (reverse digits))))
|
|
||||||
(string->number (string first-digit last-digit))))))
|
|
||||||
lines)))
|
|
||||||
#+end_src
|
|
||||||
|
|
||||||
#+RESULTS: day1-solution-2
|
|
||||||
: 53866
|
|
||||||
|
|
Loading…
Reference in New Issue