diff options
| author | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-11-26 01:43:33 -0500 |
|---|---|---|
| committer | Hunky Jimpjorps <thechairman@thechairman.info> | 2022-11-26 01:43:33 -0500 |
| commit | feccf3f6f0a806b3317d1f399e3e8b42945c4f09 (patch) | |
| tree | bf15ce045d1106c1b7f7de30c27540f40d0bf947 /2020/day-01/day-01.rkt | |
| parent | 8b624fe7d2751337b1f16830cc9c041df73e99e7 (diff) | |
| download | gleam_aoc-feccf3f6f0a806b3317d1f399e3e8b42945c4f09.tar.gz gleam_aoc-feccf3f6f0a806b3317d1f399e3e8b42945c4f09.zip | |
using raco fmt, replacing missing dependency
Diffstat (limited to '2020/day-01/day-01.rkt')
| -rw-r--r-- | 2020/day-01/day-01.rkt | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/2020/day-01/day-01.rkt b/2020/day-01/day-01.rkt index 56c0b87..e31c45c 100644 --- a/2020/day-01/day-01.rkt +++ b/2020/day-01/day-01.rkt @@ -2,10 +2,7 @@ (require "../../jj-aoc.rkt" threading) -(define entries - (~>> (open-day 01 2020) - (port->list read) - list->set)) +(define entries (~>> (open-day 01 2020) (port->list read) list->set)) ;; part 1 (define (look-for-complement xs) @@ -20,4 +17,4 @@ (time (for*/first ([x (in-set entries)] [y (in-set (set-subtract entries (set x)))] #:when (set-member? (set-subtract entries (set x y)) (- 2020 x y))) - (* x y (- 2020 x y))))
\ No newline at end of file + (* x y (- 2020 x y)))) |