diff options
Diffstat (limited to '2021/day-05/day-05.rkt')
| -rw-r--r-- | 2021/day-05/day-05.rkt | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/2021/day-05/day-05.rkt b/2021/day-05/day-05.rkt index 49ce502..e568490 100644 --- a/2021/day-05/day-05.rkt +++ b/2021/day-05/day-05.rkt @@ -4,25 +4,20 @@ (define data (for/list ([l (in-lines (open-aoc-input (find-session) 2021 5 #:cache (string->path "./cache")))]) - (~> l - (string-replace " -> " ",") - (string-split ",") - (map string->number _)))) + (~> l (string-replace " -> " ",") (string-split ",") (map string->number _)))) (define (trace-line! x y vec) (define linear-coord (+ y (* 1000 x))) - (vector-set! vec - linear-coord - (+ 1 (vector-ref vec linear-coord)))) + (vector-set! vec linear-coord (+ 1 (vector-ref vec linear-coord)))) (define/match (orthogonal? coord-pair) [((or (list n _ n _) (list _ n _ n))) #t] [(_) #f]) -(define-values (orthogonal-lines diagonal-lines) - (partition orthogonal? data)) +(define-values (orthogonal-lines diagonal-lines) (partition orthogonal? data)) -(define (dir a b) (if (< a b) 1 -1)) +(define (dir a b) + (if (< a b) 1 -1)) (define (trace-orthogonal! coord-pairs tracer result) (for ([coord-pair (in-list coord-pairs)]) @@ -37,8 +32,7 @@ (define (trace-diagonal! coord-pairs tracer result) (for ([coord-pair (in-list coord-pairs)]) (match-define (list x1 y1 x2 y2) coord-pair) - (for ([x (inclusive-range x1 x2 (dir x1 x2))] - [y (inclusive-range y1 y2 (dir y1 y2))]) + (for ([x (inclusive-range x1 x2 (dir x1 x2))] [y (inclusive-range y1 y2 (dir y1 y2))]) (tracer x y result)))) ;; part 1 |