steps

2016/day01.rkt

@@ -22,7 +22,14 @@
   (+ (abs (imag-part loc)) (abs (real-part loc))))
 
 (define (locs-between loca locb)
-  (range loca (add1 locb)))
+  (define real-steps (abs (- (real-part loca) (real-part locb))))
+  (define imag-steps (abs (- (imag-part loca) (imag-part locb))))
+  (define diff (- locb loca))
+  (let loop ([locs (list loca)])
+    (if (equal? (car locs) locb)
+        (reverse locs)
+        (cons (+ (real-part loca)
+                 (* +i (imag-part loca))) locs))))
 
 (module+ test
   (require rackunit)