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?*
|
||||
|
||||
*** 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
|
||||
#+begin_example
|
||||
|
@ -1063,123 +1186,291 @@ eightbqfhnmvqsoneninezbrzcqkz4ftv
|
|||
1eightcrcjcbdthreebscfpvznqfrj6
|
||||
#+end_example
|
||||
|
||||
*** Puzzle Solution
|
||||
:PROPERTIES:
|
||||
:ID: day1-puzzle-solution-1
|
||||
:END:
|
||||
* Day 2: Cube Conundrum
|
||||
|
||||
#+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)))
|
||||
** Part One
|
||||
*** Quest
|
||||
You're launched high into the atmosphere! The apex of your trajectory just barely reaches the
|
||||
surface of a large island floating in the sky. You gently land in a fluffy pile of leaves. It's
|
||||
quite cold, but you don't see much snow. An Elf runs over to greet you.
|
||||
|
||||
The Elf explains that you've arrived at *Snow Island* and apologizes for the lack of snow. He'll be
|
||||
happy to explain the situation, but it's a bit of a walk, so you have some time. They don't get many
|
||||
visitors up here; would you like to play a game in the meantime?
|
||||
|
||||
As you walk, the Elf shows you a small bag and some cubes which are either red, green, or blue. Each
|
||||
time you play this game, he will hide a secret number of cubes of each color in the bag, and your
|
||||
goal is to figure out information about the number of cubes.
|
||||
|
||||
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
|
||||
|
||||
#+RESULTS: day1-solution-1
|
||||
: 54159
|
||||
**** Draw Splitting
|
||||
|
||||
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
|
||||
|
||||
*** Quest
|
||||
To be done...
|
||||
|
||||
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:
|
||||
** Puzzle Input
|
||||
|
||||
#+NAME: day2-input
|
||||
#+begin_example
|
||||
two1nine
|
||||
eightwothree
|
||||
abcone2threexyz
|
||||
xtwone3four
|
||||
4nineeightseven2
|
||||
zoneight234
|
||||
7pqrstsixteen
|
||||
Game 1: 2 blue, 4 green; 7 blue, 1 red, 14 green; 5 blue, 13 green, 1 red; 1 red, 7 blue, 11 green
|
||||
Game 2: 6 blue, 3 green; 4 red, 1 green, 7 blue; 2 green
|
||||
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
|
||||
Game 4: 15 blue, 4 green, 5 red; 2 red, 2 green, 5 blue; 3 green, 13 blue; 17 blue, 1 green, 5 red
|
||||
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
|
||||
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
|
||||
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
|
||||
|
||||
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