diff options
| author | HJ <thechairman@thechairman.info> | 2023-12-25 01:23:22 -0500 |
|---|---|---|
| committer | HJ <thechairman@thechairman.info> | 2023-12-25 01:23:22 -0500 |
| commit | 4c49cb50deb1addba19f8b72c25e6007a9d47155 (patch) | |
| tree | c1655324b15e704afd8b5d7b779672b0d93a020b | |
| parent | 62ba17027b3d6268982326dac9c626b851e1b079 (diff) | |
| download | gleam_aoc-4c49cb50deb1addba19f8b72c25e6007a9d47155.tar.gz gleam_aoc-4c49cb50deb1addba19f8b72c25e6007a9d47155.zip | |
day 24 part 2 fix
| -rw-r--r-- | aoc2023-other/day-24/day-24b.rkt | 4 |
1 files 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"))] ; |