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

Day 22: Minor refactoring.

This commit is contained in:
Jonathan Chan 2020-12-22 18:27:43 -08:00
parent ecb7df09a8
commit 8132ba19ad
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/22.rkt
View File

@ -58,16 +58,15 @@
(append (rest player2) (list p2 p1))
seen)]))])))
(define (score deck)
(for/sum ([card deck]
[score (reverse (range 1 (add1 (length deck))))])
(* card score)))
(define part1
(let ([deck (combat player1 player2)])
(for/sum ([card deck]
[score (reverse (range 1 (add1 (length deck))))])
(* card score))))
(score (combat player1 player2)))
(define part2
(match-let ([(list _ deck) (recursive-combat player1 player2)])
(for/sum ([card deck]
[score (reverse (range 1 (add1 (length deck))))])
(* card score))))
(score (second (recursive-combat player1 player2))))
(show-solution part1 part2)