day 17: extremely minor fix

2020-12-17 01:10:57 -05:00 · 2020-12-17 01:10:57 -05:00 · 27b5843a14
parent e7d9c9d0d3
commit 27b5843a14
1 changed files with 1 additions and 1 deletions
--- a/17.rkt
+++ b/17.rkt
@ -9,7 +9,7 @@
 (define origin (pt 0 0 0 0))

 (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))))

 (define (in-pts lower upper use-w?)