From 4c49cb50deb1addba19f8b72c25e6007a9d47155 Mon Sep 17 00:00:00 2001 From: HJ Date: Mon, 25 Dec 2023 01:23:22 -0500 Subject: day 24 part 2 fix --- aoc2023-other/day-24/day-24b.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/aoc2023-other/day-24/day-24b.rkt b/aoc2023-other/day-24/day-24b.rkt index a173a98..f14cc94 100644 --- a/aoc2023-other/day-24/day-24b.rkt +++ b/aoc2023-other/day-24/day-24b.rkt @@ -10,11 +10,11 @@ (define input (fetch-aoc-input (find-session) 2023 24 #:cache #true)) (define (->struct f str) - (~> str (string-split ",") (map (λ~> string-trim string->number) _) (apply f _))) + (~> str (string-split _ ",") (map (λ~> string-trim string->number) _) (apply f _))) (define (parse-hail-record str) (match-define (list p v) (string-split str " @ ")) - (hail (->struct p posn) (->struct v vel))) + (hail (->struct posn p) (->struct vel v))) (define hail-paths (for/list ([hail (in-list (string-split input "\n"))] ; -- cgit v1.2.3