adventofcode
/
2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Day 10: Squish cases.

This commit is contained in:
Jonathan Chan 2021-12-10 10:32:57 -08:00
parent 9e0a24b9c7
commit 52d1e1756d
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/10.rkt
View File

@ -8,6 +8,8 @@
(assocf char '((#\) . 3) (#\] . 57) (#\} . 1197) (#\> . 25137))))
(define (incomplete-score char)
(assocf char '((#\( . 1) (#\[ . 2) (#\{ . 3) (#\< . 4))))
(define (matching open close)
(member `(,open ,close) '((#\( #\)) (#\[ #\]) (#\{ #\}) (#\< #\>))))
(define (autocomplete-score stack)
(for/fold ([score 0])
@ -26,10 +28,7 @@
[(cons char line)
(match* (char stack)
[((or #\( #\[ #\{ #\<) _) (loop (cons char stack) line)]
[(#\) (cons #\( stack)) (loop stack line)]
[(#\] (cons #\[ stack)) (loop stack line)]
[(#\} (cons #\{ stack)) (loop stack line)]
[(#\> (cons #\< stack)) (loop stack line)]
[(close (cons open stack)) #:when (matching open close) (loop stack line)]
[(_ _) (values (+ corrupted (corrupted-score char)) incomplete)])]))))
(show-solution part1 part2)