day 17: extremely minor fix
This commit is contained in:
parent
e7d9c9d0d3
commit
27b5843a14
2
17.rkt
2
17.rkt
|
@ -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?)
|
||||||
|
|
Loading…
Reference in New Issue