From 27b5843a146bddf057c0f3a89c7d34f0656f72bf Mon Sep 17 00:00:00 2001 From: haskal Date: Thu, 17 Dec 2020 01:10:57 -0500 Subject: [PATCH] day 17: extremely minor fix --- 17.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/17.rkt b/17.rkt index 4fae5b4..1e38b30 100644 --- 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?)