From b744a6f2d93abbe2a2a738fba32476050ce4c938 Mon Sep 17 00:00:00 2001 From: Jonathan Chan Date: Tue, 22 Dec 2020 18:27:43 -0800 Subject: [PATCH] Day 22: Minor refactoring. --- src/22.rkt | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/src/22.rkt b/src/22.rkt index aa9b3e8..1a64cff 100644 --- a/src/22.rkt +++ b/src/22.rkt @@ -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)