diff options
| author | Mistivia <i@mistivia.com> | 2024-02-20 00:42:16 +0800 |
|---|---|---|
| committer | Mistivia <i@mistivia.com> | 2024-02-20 00:42:16 +0800 |
| commit | bebb8946d29069b2acb10db71c8c9203ed4ae922 (patch) | |
| tree | 66ee2e321cbb413baaf32661195f2c734546eba0 /advent-of-code/2023/04/1.rkt | |
| parent | 3a4e5447a79096d813cdaf4498b9a1e2c086b7ff (diff) | |
λ looks cool & format code
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))) |