haskal
/
aoc2020
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

day 17: extremely minor fix

This commit is contained in:
xenia 2020-12-17 01:10:57 -05:00
parent e7d9c9d0d3
commit 27b5843a14
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
17.rkt
View File

@ -9,7 +9,7 @@
(define origin (pt 0 0 0 0)) (define origin (pt 0 0 0 0))
(define (pt+ . args) (define (pt+ . args)
(for/fold ([ans (pt 0 0 0 0)]) ([x (in-list args)]) (for/fold ([ans origin]) ([x (in-list args)])
(apply pt (map #{+ (% ans) (% x)} pt-getters)))) (apply pt (map #{+ (% ans) (% x)} pt-getters))))
(define (in-pts lower upper use-w?) (define (in-pts lower upper use-w?)