diff options
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)))) |