diff options
Diffstat (limited to 'advent-of-code/2023/04/1.rkt')
| -rw-r--r-- | advent-of-code/2023/04/1.rkt | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/advent-of-code/2023/04/1.rkt b/advent-of-code/2023/04/1.rkt index 8198403..e8dd242 100644 --- a/advent-of-code/2023/04/1.rkt +++ b/advent-of-code/2023/04/1.rkt @@ -21,9 +21,9 @@ (make-card win-nums nums)) (define (point card) - (define wins (length (filter (lambda (x) (member x (card 'win-nums))) (card 'nums)))) + (define wins (length (filter (λ (x) (member x (card 'win-nums))) (card 'nums)))) (if (= wins 0) - 0 - (expt 2 (- wins 1)))) + 0 + (expt 2 (- wins 1)))) (apply + (map point (map parse-card lines))) |