diff options
| author | H.J <thechairman@thechairman.info> | 2024-10-09 11:36:55 -0400 |
|---|---|---|
| committer | H.J <thechairman@thechairman.info> | 2024-10-09 11:36:55 -0400 |
| commit | 8777ff071f7bb37631baa7b6717ad29961e50911 (patch) | |
| tree | 6d59c4ed58e454b960339c3d1151f0a879e8d7cb /aoc2021/day-22 | |
| parent | 6156a9ef7be4012063a042aafb4e9b0d7eadde8e (diff) | |
| download | gleam_aoc-8777ff071f7bb37631baa7b6717ad29961e50911.tar.gz gleam_aoc-8777ff071f7bb37631baa7b6717ad29961e50911.zip | |
sorting by language
Diffstat (limited to 'aoc2021/day-22')
| -rw-r--r-- | aoc2021/day-22/day-22.rkt | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/aoc2021/day-22/day-22.rkt b/aoc2021/day-22/day-22.rkt deleted file mode 100644 index 1dc4211..0000000 --- a/aoc2021/day-22/day-22.rkt +++ /dev/null @@ -1,32 +0,0 @@ -#lang racket -(require "../../jj-aoc.rkt" - threading) - -(struct step (instruction xs ys zs) #:transparent) - -;; part 1 -(define (clamped-range nmin nmax) - (in-inclusive-range (max (string->number nmin) -50) - (min (string->number nmax) 50))) - -(define steps - (for/list ([l (in-list (~> (open-day 22 2021) (port->lines)))]) - (~>> l - (regexp-match #px"(.+) x=(-?\\d+)..(-?\\d+),y=(-?\\d+)..(-?\\d+),z=(-?\\d+)..(-?\\d+)") - rest - (match _ [(list direction xmin xmax ymin ymax zmin zmax) - (step (string->symbol direction) - (clamped-range xmin xmax) - (clamped-range ymin ymax) - (clamped-range zmin zmax))])))) - -(~> (for*/fold ([cubes (hash)]) - ([s (in-list steps)] - [to (in-value (step-instruction s))] - [x (step-xs s)] - [y (step-ys s)] - [z (step-zs s)]) - (hash-set cubes (list x y z) to)) - hash-values - (count (curry equal? 'on) _)) - |