mbutterick
/
aoc-racket
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

typo

Browse Source
master-blaster
Matthew Butterick 9 years ago
parent 37cd3db58f
commit 379b3d5d4b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File

5
day24.rkt
Unescape Escape View File

@ -52,7 +52,7 @@ After that, we just need to write a function that will test whether a given grou
(define (remove-group group packages) (define (remove-group group packages)
(filter (λ(p) (not (member p group))) packages)) (filter (λ(p) (not (member p group))) packages))
(define (find-two-group-solution group packages) (define (has-solution? group packages)
(define target-weight (weight group)) (define target-weight (weight group))
(define remaining-packages (remove-group group packages)) (define remaining-packages (remove-group group packages))
(for/first ([len (in-range (length remaining-packages))] (for/first ([len (in-range (length remaining-packages))]
@ -65,7 +65,6 @@ After that, we just need to write a function that will test whether a given grou
@chunk[<day24-q1> @chunk[<day24-q1>
(require sugar/debug)
(define (find-three-group-solution all-packages target-weight) (define (find-three-group-solution all-packages target-weight)
(for*/first ([len (in-range (length all-packages))] (for*/first ([len (in-range (length all-packages))]
@ -73,7 +72,7 @@ After that, we just need to write a function that will test whether a given grou
(sort (sort
(groups all-packages len target-weight) (groups all-packages len target-weight)
#:key quantum-entanglement <))] #:key quantum-entanglement <))]
#:when (find-two-group-solution group all-packages)) #:when (has-solution? group all-packages))
(quantum-entanglement group))) (quantum-entanglement group)))
(define (q1 input-str) (define (q1 input-str)