src/2020/days/day-06.lisp @ 2848a4548adf
2023/01 and 2022/01 Also start porting my test data to the new account, since Twitter imploded and apparently it's impossible for a website to store a goddamn username and password in The Year of Our Lord 2023 so everyone just outsources auth all the time, ugh.
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Fri, 01 Dec 2023 11:05:43 -0500 |
| parents | ff7c8ed35992 |
| children | (none) |
(advent:defpackage* :advent/2020/06) (in-package :advent/2020/06) (defun yes-counts (group) (let ((answers (mapcar (rcurry #'coerce 'list) group))) (cons (length (reduce #'union answers)) (length (reduce #'intersection answers))))) (define-problem (2020 6) (data read-chunks) (7110 3628) (let ((counts (mapcar #'yes-counts data))) (values (summation counts :key #'car) (summation counts :key #'cdr)))) #; Scratch --------------------------------------------------------------------